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Co LOG7A20 ** MAP FC HISTORY ** 002500 2EA4 198 DC A(E POINT TO MAP ENTRY POINT TABLE 
i JUSSI SI aE IEEE IHGA GREE EOC IGSE EO COTE EB SRIOS SS TORIC IOGEIA ACEI AAC CE 199 EET EEEeT SeTeer elle le! Serer eee eeeT Set EVES eT TT ett eLe eet cre elt Tt eee e eee 
5 * x* DOO Rea Hea 2 a 2 2 a a a ee aK 2 ae i ie ake 2 2K 2k 2h ic a a fc 2c 2h 2 fe 2 2 i 2c IC aff ac a 2 a 2 2c oc a a a a fc a ak ak ale af afc akc ak ak ae akc ok 2k ok afc 
6 * to ok PPEREQUISITES CK * 201 ** * 
7 x * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) * 
8 x NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER OK 
9 * * 204 *x* PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR * 
MME Let eter ett t StL TSP e LS SS LSS SSCS SOS SS SL SSCS SS SSS SSCS SO CL SIS ST SSC SCL Le Se 2 2 2 205 ** THE INDICATED MESSAGE (5). THERE ARE FOUR TABLES USED FOR THIS * * 
1 (%* e 206 ee PURPOSE THEY ARE: he 
12 * 2 2K MODIFICATIONS 4k * * 
ae : 509 ee OP ANTS TABLE OEVES THE RDDRESS OF THE RULE T0 INVOKE “ 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * NVOKE AND 
15 * x 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. 2K 
16 2 IO IG CIO IOC OI GORI IC II IO 2 Fa I IR aca ak 2 aie 211 ** ENTRIES ARE AS FOLLOWES ** 
Ws 313 3: A) Beat BREE Sob okey OBE rae START AREA : 
18 * 40K EA'tS INCORPO ED 2 ak ok x 
19 * RE - REORES x 214 *x C AN EQUATE FOR THE STED. NUMBER ek 
20 * NONE * 215 ** kK 
31 * x 216 ** RULE INFORMATION TABLE se 2 
PORTE TSE S OLS LSS SL S SSC SSS SOLS SSS SSCS SSCS SSCS SS SS SSS SSS SSS STS eS SSL LS PSS eS 2S S| 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * * 
33 x x 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN #k 
au * KKK SPECIAL INSTRUCTIONS KK * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * 
95 * x 220 ** INDICATED WITH A X*O000' FOR THE RULE EQUATE. eS 
26 * NONE * 221 ** ** 
27 * *x 222 ** SQUES *K 
PASSE TCLS LSS SSS SSCS SSL SS SES SSS SSS SSS SSS SSCS SSS CST SSS SSS SSS SST SL SS Lee eee 223 ** A) RULE EQUATE X‘'0100! 2K 
29 x * 224 es B) ADDRESS OF THE YES LEG RULE ee 
30 * 2 ak a E. C. HISTORY CK * 
ee : 336 ee ios A) RULE EQUATE X‘'0101! sae 
32 * DATE 17AUG78 DATE O020CT78 DATE 10JAN79 DATE XK ** 
33 * E.C. 755391 E.C. 375102 E.C. 375222 B.C. * aoe vgs B) ADDRESS OF MESSAGE TO PRINT a 
34 * * 
35 oko do IO OK IC i kok kk foi kak kai te kak fee ke ae ake fe ake ate aie ak ake ake ae ae af ak af 2k fe 2c fe ofc ok 230 ** S$STOP * 
002500 37 I7A20 START X*2500! START ADDRESS OF ALL 'I* TYPF PROG 231 ** A) RULE EQUATE X'0102!' * 
000100 38 OQURS EQU ¥*'0100! FQUATED VALUE FOR MDI STATEMENT 232° ** B) ADDRESS OF MESSAGE %* 
000101 39 OFIXT EOU X¥*01018 EQUATED VALUE FOR MDI STATEMENT 233. ¥* * 
000102 40 @STOP EQU  X'0102! EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO ' si 
000200 41 @GOTO EQU X*02008 FQOUATED VALUE FOR MDI STATEMENT 235. ¥* A) RULE EQUATE X'0200! * 
000201 42 @CALL EQU X'0201' FOUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE ** 
$oou0t tg ogre FRU EeGa00 EQUATED YAEUE FOR SOE SUATEGEYE 338 5] EENEy Borie Winsry'Go m0 nap to use =: 
000500 45 oR OLS at X'*0500°8 EOUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ** 
000600 46 @NVLD EQU X¥*0600! FOUATED VALUE FOR MDI STATEMENT 241 ** %** 
000000 47 FOU X*0000! EQUATE FOR EQUAL 242 ** SCALL : i 
000004 48 NE EQU x*'ooou' EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X'0201' * 
000008 49 HI EOU X'O0008' EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE * 
00000C 50 NH EQU X¥*OOOC! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL * 
000010 51 LO FOU X¥*0010! EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU X'O07148 EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * x 
000010 53 LT EQU X¥*0010! EQUATE FOR LESS THAN 248 *x* * 
00000C 54 LE EQU x'o00CcC! EQUATE FOR LESS THAN OR EQUAL TO 249 ** SINPT *« 
000008 55 GT FOU x*o0o08" EQUATE FOR GREATER THAN 250 ** A) RULE pe QUATE x *0300! 6 
000014 56 GE FOU x*oOo14u8 EQUATE FOR GREATER THAN OR EQUAL TO 201 ** B) INPUT TYPE (EBCDIC OR HEX) * 
000200 57 ON EOU X¥*0200°8 FOUATE FOR ON 252 ** C} ADDRESS OF YES LEG RULE 2K 
000202 58 OF EQU x'0202° FOUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA 4 
000204 59 MX FOU X'O204t EOUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA ** 
000000 60 EBC zu Xx'0000! EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA * 
000001 61 HEX EQU x*0001' FOQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA ** 
000001 62 XTRNL EQU X'O001' FOUATE FOR EXTERNAL REFERENCE 257 ** ** 
000000 63 INTRNL EQU X¥*0000! EQUATE FOR INTERNAL REFERENCE 258 ** SQUXX * 
000000 64 PARM EQU x*0000'8 EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X'O4OO! * x 
000001 65 DA EOU xX*OOO1! FOUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE * 
000002 66 UA EOU x*0002! FOUATE FOR UNIT ADDRESS 261 ** C) TU PRANCH TO ADDRESS besa, * 
000000 ‘67 DUMMY EQU X¥*0000! DUMMY BQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) ** 
001800 69 PID FOU *-X'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTE ee 
000232 70 PTYPE FOU *-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU ** 
00180C 71 STEPNUM FOU PID+X'OOOC! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
00180E 72 OPWD1 EQU PID+X*'OOOR! ADDRESS OF OPTION WORD ONE 266 ** *% 
001810 73 OPWD2 ROU PID+X'0010! ADDRESS OF OPTION WORD TWO 267 ** STU XX ** 
001818 74 TUSTATUS EQU PID+xX'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X‘'0500! ** 
00181A 75 TUWORK EQU PID+X'OO1A? ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * * 
00189A 76 TUPARM1 EQU PID+X'OO9A* ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS * x 
00189C 77 TUPARM2 EU PID+x'009C*t ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE oN RESULTS * * 
00189E 78 TUPARM3 EOU PID+X*'OO9E! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULT 3k 
0018A0 79 TUPARMG EOQU PID+X*OOAO?® ADDRESS OF PARM 4 POINTER 213 ** F) MASK FIELD FOR COMPARE ** 
0018A2 80 TUPARMS EQU PID+X*'OOA2* ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES %** 
0018A4 81 TUPARM6 EQU PID+X'OOA4! ADDRESS OF PARM 6 POINTER 215 ** BH) PARAMETER TO PASS TO THE TU * 
0018A6 82 TUPARM7 EFOQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ** 
0018A8 83 TUPARM8 EQU  PID+X'OOA8! ADDRESS OF PARM 8 POINTER 277 ** * 
OO18AA 84 TUPARMS EQU PID+X'OOAAt ADDRESS OF PARM 9 POINTER 278 ** SNVLD saled 
0018AC 85 TUPARM10 EOU PID+X* OOAC* ADDRESS OF PARM 10 POINTER 2719 ** A) RULE EQUATE X*'0600! * 
0018AE 86 TUPARM11 EQU PID+X'OOAEt ADDRESS OF PARM 11 POINTER 281 ** ** 
0018B0 87 TUPARM12 FQU PID+X*OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * 
0018B2 88 TUPARM13 EQU PID+X'OOQB2° ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT ** 
0018B4 89 TUPARM14 EQU PID+X"OOB4' ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE sled 
0018B6 90 TUPARM15 EQU PID+X'OOB6t ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * x 
0018B8 91 TUPARM16 EQU) PID+X'OORB* ADDRESS OF PARM 16 POINTER 286 ** ** 
0078BA 92 TUMSGWTR EQU PID+X'OOBA? ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT * 
0018BE 93 TUUA EQU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE * % 
0018C0 94 TUDA EOQU PID+X'O0CO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** * 
0018C2 95 TUBUFF EQU PID+X'00C2'" ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A X*'0O000! * OK 
0018C4 96 TULAST EOU PID+X'O0CY' ADDRESS OF LAST ADDRESSABLE WORD 291 ** * 
0018C6 97 TURESULN EQU PID+#x*O00C6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE ** 
0018C8 98 TURESUL EOU PID+X*'00C8! APDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR 2K 
0018FC 99 MAPNAME EQU- PID+¢X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: ** 
001948 100 TUINPT EQU PID+X'0148! ADDRESS OF $INPT DATA 295 ** ** 
001968 101 PARMARA EOQU PID+X'O16F! ADDRESS OF $INPT INPUT AREA 296 ** A epuete FOR START OF MESSAGE BLOCK * 
0019B8 102 @DCADD1 EQOU ID+X'0O1B8' MDI POINTER 29-1) E* B) NUMBER OF LINES OF MESSAGE ** 
0019BA 103 @DCADD2 EQU PID+X*O1BA® MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * * 
0019C4 104 SUPSTAT FOU PID+X'O1CKH" ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE ** 
0019D0 105 DEVADD EQU PID+X*O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE * 
O019DA 106 DEVADD1 FOU PID+X"O1DA! ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE ** 
EE 132 Bevabbs E84 EisesOtEE RBDRESS OF DEVICE ADDRESS TABLE 3 03 eae + 
+ 
0019F8 109 DEVADDG EOU BTateroiEae NUE RECS on REVICE ee eee i 304 coo Co Ko ROR ICI IG KO OK I ko ok kok ok kkokoi toto iio ik iaiagcoak tok tok gotokoaakoai iki ok 
091402 110 DEVADDS EDU PID+X'02028 ADDRESS OF DEVICF ADDRESS TABLE 5 305 [RO OO OR IIR OOO II IO IO OI III IO ROR I IG HOR IR tok kok tote a 
001A0C 111 DEVADD6 EQOU PID+X*'O20C? ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 V2 DEVADD7 EOU PID+K" 0216" ADDRESS OF DEVICE ADDRESS TABLE 7 





PAGE O2A 


IBM CORP 1976 


375222 


EC= 


8327653 


P/N= 


CHANNEL/4963 DISK UNIT 


I7A20 --- 


PAGE 02 


1976 


8327653 EC=375222 


P/N= 


CHANNEL/4963 DISK UNIT 


IVAZO Hes 


COPYRIGHT 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


COPYRIGHT IBM CORP 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


~~ ~~ - - -~ on - cm) -_ om -o~ -~ -~ -~ ~~ -~ ~~ om ~~ ~~~ ~~ -~ - -_ =- ~~ -~ on ~~ -~ ~ -~ -~ ~~ omaM ~~ —- - 
~ ioe) Ov io) C N ~*~ =a we ie) ~ @ [o)) © - N ~*~ 4 Wh Ne} ~ © joa) i] ~- N m za Ww WO ~~ c oa) oO ™ NS ae) i 
Me Oe Oe wzre ate ae afte -e te sje afte ate arte He he Ne je We Ne ie ver 3 ifje ver We We We We Ow We We We We We foe 0 se he ie 
WOPPODDONNODOOFKONNOMMOTAFONNOWOVOPRODDONNODOO EF TONNOMMOSTFONNOCWOVOPR DDDONNSOOCOCOSCCONNOMMOtSTOMNNOOVOPPODDONHAGOCOCOSFCONNOMMosr 
NOMNMNOMMNOMNMOS FOSAPOAP POP POS TAOS POP TPOPTPOSPTOSPMONNOCMMONNMOMNOMNMOMMNMOMMN CMM OMMOMNOWOWSOWWOWWOUWOWNUOUOWOONUOUWOUWONUOONWOPPOPPorrorror 
DODO CODOO DOD OCOD CODCOD OOCOCOD OOOO OOOO COCO COCO OC OOO OO COCO OOS OOD OOOO OCO OO OOOO OO COCO OOCOOOOOOC OOOO OOO OC OOOO OOOO COO COO oOo oOOoOo oo 
OZCO ZOO ZOO ZOO BZOO BOO BOO SCO ZOO SOO ZOO BOO SZ0O0 ZOO ZOO GOOCHSOCO SOO ACO AVOCA BOOZOO SOO ZOSCHAVCO SOO ASCO ZCOZOCOSOCO SOOSOCOAOOSOOCSOOAOOAZO 
ge — en —e —= —e —e Hp —— es —e Se gy —e He — —e Je ~—ey —e ety ep —e —~ —e —~e —e —_e —wa —e —e —p —» —s —e —e —e —e —e 
NN NN ANN AN ANN ANN ANN AN NN NN NN NN NN ANN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN ONN NN NN 
AM AA AA AAR AW AA AAR AN AH AH AA AAR AH AAW AAR AHA AA AAR AA AA AA AN AA AAR AA AA OAR AA AA AA AR AA AA AA A AA Aa oA 
mids abd tb eb i ot oi tS ot et eS et ct et et et eS eS SS SS mS Sm OS KS KS OS OS DS IPG PS IPS REDS iPS 


BU LOUU OULU OUU OU UL OX OU VOW a Vou a vo LOU Suva OL BU LU BUU SUL SUL BUU BUU BU U SIU DOU U BUU BU U BU U BU U BU U IU VOU OU U UU UU OUUELUEVU 
1S) UO UOWw UO 1S) O UO 
RAANWARNOAORHAARNOAHRARARAARAAHRARAHAOANROANAAHAAHNARHAARQANRAAHRAAHAANAAHNAARARNAARARNRARHRAARRAARHRAANRAARAANARRARHRAARRARAARHRARRAARMAAR 
\o ~ foe) OV © ed N isa] st wn Ve) ~ joe] ov io) - N m as wo \O ~ ie] on) oO c N ~m od wy oO ~ co on) oO - N ~- 

ine] ” ~m ~ > = 4 =x i a+ =z => 9 c= wn w w wn wy wn wn wn wy Fa) Oo \o We) \o \O oO \O wo Ke) Xe) ~ ~ ~ 

o <o) o o o © Oo © io) oO co) oO io) © o oO © oO io) oO o a) >] io) oO i} © © oO Oo oO oO © Oo o © oO oO 

Oo Oo io] © io) oO Oo o Oo oO jo) oO io) © Oo o © o>) © o © io) io) oO =) io) Oo Oo Oo io) io} =) oO io) o io] o © 

io) o oO So o oO Oo © © =) oO oO oO -) io) oO o oO oO © Oo o -] io) © o o oO Oo io) oO oO io) io) o o Oo o 

z= = = = = = = = = = = = = = =z = = = = = = = Zz = = Zz = = =z = za =} = = = = 1 = 

oO ol oi ol ol oO ol (o] ol oO .e oO! Oo oO ol oO OQ io] oO je] oO 1e ] Lo ol oO ol oO 1? |] ol o ol ol Co oO Co oO ol 1? ] 

4 Ry co) 4 ca me ca >) ce <a) 3 ic ce io <2 & fa is a a 3) ica ca) <> re Fa co 2 By a fa Ry 4 co) Fa is > <>) 


NOT OP DHAOTNM PME DNOCAMAN SPROHNOSCAMAN OE DHAOSCNAMANOPEDHNOSCNAMANOPDHOSCAMANOPONDENANMANOPE DAOC AMSMOPDHAOSCNAMSTNOEODHNOSCAMANOEOHNOKAMsSN 
AANANAANANAMMMMMNMMMNMN Ss ttt tt TST AMM MMMM NNW UW HWW NUD ODOUR EREPEREEPRE DDDDDDDDDDNAAUNNAANAANG OO OO 09 O CO FM GMM GME MANNANAAAAAMMMaM MM 
saaoecsatstostaessatsssssssssstsstssss sts sss sss sts tat sss st st sts ts stg sts AAA SAA AIA AAS APSA AAAS ASAT ATMMNMNNNMN MMMM MMW LAWALL DATA A A ALATA ALAA AA LAA EA LW 


ANAFNOODO AOE ADOONASHOD eh GCOUMMOUNT AOD UMNOONSTTYOONAOMMOANTNODU AUP HOODNAHNOO AAU NHOONSAWON se UN MOON SPOON COMMOANANWDOO EOS HPODNANOD 
ANDNDANAINAANO Nat tN et et Net ec Net ON MONO MNMOMNMUMUOMUUMUUM YU AMAAM QAM AAM ARIM BI FIM FIFA I Be a Be a Be Pa MO POO POOPOO POS SESE STPESCATNANNITNN 
CWI OC MMN OM NOMNMN COMM CMM CMIN DINMNOMNOMNMOLNWMIOMWN CLAN DMM OLINOMMOMNN OLINIOMIM OMIM GM SMM DMM OMMNOMMNOM NOM NOM OOO HOW MOU CDW HOCHOU DOW OODWODOWWOOO 
ONANONANGNNAODNANNONNONNOGNNONNDNNONNONANNONNONNONNONNONNONNONNONNONNONNONANDNANSANODNNOSNNSNNOANNONNONNONANONNONNOGNNONNONNONNONN 
DOSS OSOSOSOSOSOSSOSSOSS SOHO OSSSOSSOSCSSSOSOSSSOSSSSCSOSSSSSSCOSCOCSOSSSSSSSSSCHSSSSTOOSCOSSDOSOSDSSOSSSOSOOOSSOSSOSSS SSSSSOSSOSSSSSOOOSOOOSOSOOCoooe oo 
SOTO OSSOOS SOS OSS SSS OSS OSS SOS SSDS SOS SSOSOOS DDS OSOSSOSSSOSSSSOSSSSSSSH SS SSG OSSSOSSSSOSSOSSOSSSSOSSOSSOSSOSSOSOOSSSOSOOSOSOSOSOSOOOOOOOCOOOSOO 


a 
* x 
*« 


) 


-~ -~, ~~ -~ - om~ ~~ oan -~ =-~ -~ ~~ ~~ ~~ -~ ~ -~ o~ ~~ -~ -«- -~ ~~ ~~ o- - - rF_ -o-~ -~ ~-~ ~-~ ~~ -~ -~ 

N m~m og w \O ~ ioe) Ov © - N m~- ho ie 9) wo ~ joe) Oo oO - N inp) i 9 Ww oO é~ ce ov i) ad N ine) a wn O 

Oe Oe Ou Oe Oe Oe Oe Ox “eo “oe oo Looe od “eo ~~ A see od “oe ~~ “oo Ne Ne Ne Ne Ne Ne New Ne Ne Ne Me Oe Ow Ne He Ae Me 
FKONNOMNMOFSFTFONNOCVOVOOPPODDONANGCOCOFTONNOMMOTTFONNMOCOVOPPODDOANHNOCSCSOSFCONNOMMOFTSTOMNNOWOCOPPOCODODONNDODOCOFLCONNOMMorzronNnNorw 
OOSCOCSOOS OOO OOS COO OOO COO OCC COSC COSC COP COC COC POC COC TOC COC CO FP CONNONNONNONNSANONNONNONNDNANSNANSMMOEMMOEMMOEMMEMMoEmMmMoemnm 
COOCOS COSCO S OS COCO OCOOCOSSOSOSGDCTOSOOSTOOD SCOOT OOSTOCOOC CSCO SCOCOCSOCOOCOCOSCOCOCOOOCCOOOCCOOCOCOOCOCOCOCOOC COC OOCOOOOOCOOoOOCOoOOCoOoOoOoCooO oom 
OO ACO MOS SCO AOCOSOOSOCOSZOCOCSZOOSOSCSZOO SOO SOO SOO AZVOSOOSOSO SOSOS UVSC HSOCOANACO LOO SOO SCO SOSC ACO SOS SOO SAOSCHZOCOOSOCOAQGO ZOO AOC AZOCOCaAZO 
= —e —e —e _—e —we —e —_—e a "= —e —e —a= —e "a —e —e —we "a ee —ea —“e —e “ee —e “eo —e —e —e —e —w- —e —e —e “ese —e 
NNN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN ONN NN NN ONN NN NN NN NN NN OONN ONNONN NN ONNONNOONN NN NN ONN 
A AWM AA ee AAR AAR AW AA AAR AA AWA AA AA Aa AR wl AA Aa RA AW AAR RA AA AA AA AA AA wad AA AA AAR AA AA ee AA OWA 
KES SG EOS ES KES OS OES PS KES EPS PS EPS PS KS SS OS EO KR ERS KOS KEP KER KS KES KR KER KORG KUPG KE PG KOS OG KR OK Ot 


STEP AND RULE ADDRESS TABLE 
A OI IG IO IO I OR RIO IR A IIR II IR IOI kk a ak 


(N00001 


ORK kK OR kk kk kK kk tok a lok ito lok gokokokokokkkk tok ok kok te ok kok 
AL2 


He He Re eh Ra ee 2 Re 2 a a a 2 ke a eR a a of a 2c a ai aca ae ae ae ake ae a 2k ac a ic ak ic kc ai ke Re ak oie tak a ek ok ic kK ak ak ok 
We Hee We a ee he Be a he eR ee he a a a a a hc 2 a a 2 i 2c a a ae ico oak ai a tok ek ie tk ok i a ak kok kK Ok KK 


> 2 ow) > > 5 > jo) 2 om) to) > =) 2 =) 2 i=) D > > 5 D D a) =) —] ao) =o] i] DP > 5 D> > on] 
VVOWVAWVY OW VOW VOW DH OW VU DU UO UG V QW VOW VOW OD VG OW VU OW DV DU V OU VU QUO UW DU UDO VOW OW VV QU VOU VOW VA VOU V AV OO VONOVOIU DO OlOU 
ARANDA ARAADARROARARRAARARRARAAAR AOR ARR ARR AAR A AR ARRARRAARARHRARRAAHAARARD ARR ARR ARRAARRARAARRARRAARAARAARNRAARAARARA 

- N ~-m za 9) \O ~~ © OV io) - N ~m =z Ww oO ~ joe) Oo jo] = N ~- 3 wn \O ~ @ OV oO - N ‘ag] 7 Ww 

io] Oo o © o o © io) oO - - - - - - ~ - - - N N N N N N N N N N ~) ina] m isa] ise] mM 

i] Oo o o °o o io) © o oO o o o o Oo o °o °o ° oS Oo Oo o o © o o oO Oo oO >) oO oO o io) 

oO o oO i] o Oo Oo Oo So oO o © oO o © oO Oo oO o © Oo oO i] So Oo o >) o i] o i) o io] o Oo 

o © o io) © o Oo jo) oO © o o o io) io) © io) oO io) o o =) o oO Oo io) oO io) Oo o io) o oO o oo] 

= = = a = = = = = = = = = = a = a = = = = = = = = = = = =) = = = = = = 

%% % ol ol ol Ol Oo ol oe] Ol oO Ol oO oO oO oO oe] oO oO oe] OQ oO oO oO ol ol oO oO oO oO oO ol oO oO o oO Oo 

* % Ht fr] Fy gy 4 se a ey fy fy <3 ‘RQ ca co 3) FQ <>} <a] 4 A 4 > Fy Fy co co a co ce <2) 2 <2 A ie) 


DHAOPAMTMOOE DNS AM ATWO DHNOSCAM SNOPES DHNOECAM SNOOP DHOCTNAMANOEDHNOSCNAM APNE DNOSCAM ANOS DHNOTAM ANOS DHNOPNM SNOPMONOSCNAMANOPFDHNOSTNMANWOPE ONO 
DOF MO ANNNNNNNNNANMMMMMMMMMO Ss sts st FSISTSPTMNMMMNM MMMM OWOOWO DOW OU EEE EPEREE DODD DDDDODDDAAANAHAANARANS OOO 9 O00 00 FCCC SMES EMAN 
AMM AMAMMNMAMMAMMMAMMMMMMMMMMMMMMMMAMMAMMMMMMMMMMMMMNMMMMMMMMMMMAMMMMMMMMMMNMMMMMNMAMMANAMMMMMMMMMMMNMNMMMNssAaat ta aea¢ t+ 0; aataszarsaszasszrc34a54 


NIH OON AOMNOANANODV EOP DHOODNAIHOVUD eA GAOUMHNOUNTOQWOR AO MAOONST KOON GOUMHAOANTNODO AOP HOONAHOOD gO MHOONTST OOO Met OMHOONTRODN GOMNO 
DODD OTOOCCOO COT KOT KOT KOT NONNODNNONNONMOMMOMMNOMNMON Se FPO PPO ST PET HMM HWW HIN HNO POU MOU HOU MOREE Pele Eh eh ONDONDONDMONTAO 
OWI DMM OM MOMNINOMMOMNOMMNONNOMMNONNOMNOMNN OMNNODINMNOMMNSMN MOM MN OMMNONNOMNN GIN OUIMN OWN GMNNOMNMOMNNOMNONNONMNOMNOMNMNIOMMNOMNMNOMMNoOMNonn 
NNDANDANDNNONNOANDNNONNDNNDNANONNONNONNOANNONN®NANONNODNNONNONNONNONNANOANDNANDNANONNANONNODNNONNODNNOGNNGNNONNONNONNONN 
DOS SCO OS OSSOOOS DOS SDD CON CSTD OS CO DTOCOOSO SCODST OSSD SSCO SOO SCOTS OSO SCO COSS CO OSS SSO SCSSOSCOS OCSSSSSSSOSSOSDSOOOOSSOSOSOSOSSOSOSSSOOSSOSOOOSOO 
DCODSSOSSSOOSCSOSSS SCO OO CO SCO SSCSOC SCO OSCSOOSCSSCOS OOOH OO OSSSCS OSS SSS SCOSOSOS SOSSSSSSSOSSOSSS SOOSSSSSSSSSSSSSOOSOSSSSSSCSOSOSSOSOSOCCOSOoOoO 





























PAGE O3A 
COPYRIGHT IBM CORP 1976 


375222 


EC= 


8327653 


P/N= 


CHANNEL/4963 DISK UNIT 


PAGE 03 I7A20 --- 


COPYRIGHT IBM CORP 1976 


375222 


EC= 


CHANNEL/4963 DISK UNIT P/N=8327653 


T7A20 --= 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


HHAEHHHH 
HHHRHHHEHK 
+ # +H 
% & %*H 
+ % 
*% H+ 
% % + 
*+ * x 
% * % + 
‘ * * + % 
re + % 
% % 
% + 
%* & % 
+ + 
*% + % * 
* % + 
% % % + 
- % 
% #H#™M 
+ + HHO 
* ##O 
% HHO 
HH HHO 
+ #% HHS 
* % % Ii 
*H+ FL HHN 
*%e Yee 
#%e CQ HHP 
ee ao et & 
Hee FO HeAR 
+ + as 
He BB HHS 
*He OF ## #0 
eH He KFS 
*¥*e HH #*##O 
#e eH O 
+e fF HH” 
ee BG HHI 
#* O #%#H 
¥*e FR ##O 
*%* 2B #% & 
HH FH ## 
% + * OO 
#%e Kl ## & 
~ a ve) wo ~ ioe) fo) i>) vod N mM ot w Ww ~ a OV i>) - N ae] = ve) Ne} ~ ie) on) Oo - N ~m =z wy mt D FHO M 
| =e ~-o ted eo =o To Ne Ne Ne Ne Ne Ne Ne Neo Ne Ne Me Oe Oe Me Me Nea Me eer Me Me ate ate ase ate ate ate rose + [eat ee =§ © 
NEON TTR MONE OES CODE DNDN POOP SKK ANSE MMS TT RNN COME EE KODE DNDN KOO FCCC ENAN EMME STO MNN KOVERE KDDEKNNCPOOT KEENAN MMSESASTOMON Ee Ce en ee 
COC SC OSC FOF FOFC FOF FOr TOF CKONNONNONNONNONNONNONNONNONNONNOMMOMMNOMMOMMOMMOMMOMMOMMOoOMMNoMMosrsTtT037 707702727027 20337 5% * +H OM-MOO 
COCK OFC TOF COC FOP FOF FOF COC COT COP TOT TOK FOC KOT COT FOF KOT FT OFT KOK KOT TOP POET FOr FOr TFT Orr Or TOT TK Or ror rorrmOorrorrOorer let € +e ed OWN ie 
OZD00 SOO SCO SOO SOOSOOSZOOSOOCSOO ASSO ZOO ZOO SCO SVCOSOCOCSOO SCO SOO SCC SOCOO SOO SOO SCOSOO SVS SOO BZOCOSOVOSOCOSZ0VOCSZOCOSOOBZOCAK ¥ #HeODELOO 
—es we =e =p =p —p —wa —e ~~ Oe —— ee en ey oe et any egy ge —e en gy ee wag —ee an a ee oe —e ey —e marae —en —H ae * Te) e oA ee 
NN NN NN NN NN NN NN NNONN NN ONN NN NN NN NN ONN NN NN ONN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NS HH LONANN 
Ae Ae wet AA AA AA AH AA ea AA AA AA AeA AA AA AA AA AA Aa AA AAR RA WA AAR AA AA AA AW AA AAR AA RA Onn OAK +H PHA e 
PS GPS KEP ERS KER KURSK ORS URS PS CPG PS OER ODS OS et et eet ct ttt ti mt tS SS shed Deere 
* 
%+ He He b< 
+ %& % Ht P< 
= = = = >) Dp i=] om] D> > > > > te) > > 2 =] > jeu] 2 > a) =] =] 2 > tem) > f=] > ==) > > #** % % 
OW OU OID DO OF} UO OF} UO OF) UO OF) 0 OF} OU OID U OK © OO UU NT OU OWED UW OI © OW DW IY UW OWN) © OW UW DI UW IU © FRI © HIIOU UY PE © (IO. © IAI UU PFE UW FI U II © DI UJ (EIB © IU UYU PFE UW PTE UW QE UW UI. &—-&@_ *%* BHOOCOULO 
RAAROAARAAHRAARAARROAARA ADA A RAARHROAAAARAAHA AHORA AHOA OHARA RAR HAAHRAODAAROAOQWOOAA AH OAOAH OAR AAA ORDARARAANRAARARRAANAX ##AAARAA 
+ % + 
N ine) i 2 Ve) Ne) ~ foe) (on) an) - N ~m =a we Ne) a ee) OV Oo = N fap) a ive) \O ~ ee) OV io) ~- N ” i 2 Wm H+ HH 
- ~ = ~ - - - - N N N N N N N N N N ~ ine) ™m ing) vr) ine) inp) fag) (ap) inp) =r faa no A a +r; + HH 
- -= = = - - ° = bd - -~ - co bad = baal - - - taal toad t aa - - - bad = ; oad - °- - — ol — % % Pe od 
© jo) © jo) © jo) Oo Oo jan) jon) i) io) (on) © © So (jo) (a>) © © jo) © © Oo © jo) jo) jo) (>) © jo) © © Oo + HOO 
© io) © © © © oO © ia) oS (an) i) © i=) © ia) ion) © <>) (o) © © (o>) © So oO © © © lan) () © © oOo ** Xe OO 
z= = = = = = = = = = = a] = = = -—) = = b=] i=) Zz = = = a = = =a = = = = = = Ke HOO 
oO oO ao oO OQ Qo oO oO oO oO oO oO Co oO oO oO oO OQ oa oO) Qo oO (e) oO oO oO a OQ OQ oO © (oe) oO Ch HHH HHEHHOO 
4 <a) ic) ic) ica) ica] FQ <a) <2) fq ca) ica) fx ca ic) ic) fH a ca 4 4 4 isa) ica] 4 <a) ica isa) Fa isa) ea} cat 62] A HKHKHKHHHAS 
+r e+ 


OH ANM ANOLE DHOKAMANOMRDHNOKNMANOK DHNOKAMANOEDHOKAMSIMNORDHAOKAMAFNOKDHNOKNAMANOEONOKAMAN OF ONOKAMANOLDHOKAMANOLDOHOK—AMSNOFDHASKEAM 
LOLOL ALANA COW OW DOD DOFEEERRRERR DDDDDDDDDDANAAAAANANNDOOCSCSCOCOCOCOCO PE PRP ERE ER NANANNNANANANAMMMMMMMMMM st tat tstst sts st TON OWwwo 
WD DW DOWD OUD UWNUUD OD DU OHWU ND NDU UD DHUWU DDD HUW DLW DDWWUW DUN DOKDWUUOUSEREREREARRARRAREARREREREREAREEREEEEREARRREEASEEREEEREEEEEEAREEREARERRE 


om at OW eNO OF NO StH CO Fe7 ON <M OF OM MO UMP AO OD VO N= ON OM 4@t UM OO she ODD UD OO Ser AN OM NT AM CO ORONe 

Or Fr STK NT SET NK NK ON ON EON ON ON AN KN AN ON AN AM FM FM OM KEM KM AM MM FsM FM OF OF BF HDF AF OF © ONROO 

AZT AT Amt AT AT ATW Awr Ar Ar AT AT AK ArT AK AK AZM AT AM Ar AM ATK AM AT AYE BE Ber AK ATW Be AT AT ae ae Oo LNryINo 
oS 


NO NOD NOD ND NO NO NOD ND NO NO NO ND NOD ND NOD NO ND ND ND ND NO ND NO ND ND NO NO NO NO NO NO NGO NO ONMOO 
ONSFTODN AUMDOANTNODO GOP HOONAHDOSO eit O MAO UNS AWD Met UO MMOONST HOON AUMHOANSNODW dO ADODNAHODO aa UMHOUNStQWOONRORHDOONA& OmUMO 
MULUMRULUPOUDE UA AAP AARP AARP ARR BAM BAM RIM BRM By BM Ba Ram rh ODO DDOOOF CDQ COM CTOK KOM MOM NONNDANNDMNN GNM OOM OMM COMM OM +S Ost =F = Fn ne gine ae 
DOUWS OO DOW DMO SD HW DOW DMN C' WWD NUS HO DOWD HWWDDWSOWNOOWOCOPOFPorlonrponrorrorr OMPPorrorrorrorrorrorrorrornrrornrorror | Sad Sd Sd Bd 
ONNDNANODNNDNANDNANANDNANONNONNONANNDNNONNONANONNONNODNNONNONNONNDNNONNONNONNODNNODNNONNONNSONANNONNONNONNONNONNONNON NANNN 
DOSS DOSS DOSS OSSOSO SOS OSSSSSSSCOS SSO SSSSSSOSSSO SOSOSSSSDSSSOSSSSSOSSCSSSCOODSOOOODDODOSOODOSOSOSOSOSOOSOSDOSOSOOSOSOOOSSOOOSOOEocoeedo Oooce 
CDOSSSCOSSOSSOOSOSOSS SOSSS SS SS OSSOSO SSO SOOO SO OOSOSSSSSOSOSSSOSOSSSSOSOOOSS SO SCOSSOSSOSSOSODDOOOSOOOOSOSOSSOSOODOSOOSOSOOOOSOOOSOOOOSCSS Coooeo 


~ ~ -~ ~~ ~ ~ ~ ~ ~ ~ ~~ ~ ~ ~ ~~ ~~ ~ ~-~ ~ ~~ _ ~-_~ ~ ~~ ~~ ~~ ~ ~ ~ ~-~ ~ ~~ ~ ~ ~ —~ ~~ ~~ 
Ww Ke) ~ @ OV o aa N ~m i 2 Ww Ne] ~ ioe) fon) © = N wv) a Ww) \O é~ [e°) on) So = N ~m at Ww We] é~ oe) on) © ~ N 
Yo Ye hte Ye eo Oe Oe Oe Oe One oor leer Oe Oe Oe Ne Ne ne Ne Ne Ne Ve Nw Ne ne Oe Ou Oe- O-= Oe lor Oe Oe Oe Oe ro Ladle oe 
TONNMOCOVOPBE ODDONNGOCOSSFESONNOMMOTPONNOOCOPP CODONHOCOSOCOLPLrONNOMMOsTONNOOVOOPBSODDONN COO CRE ENNE MMC STOO N KOO EEK DORK NNRKOCOKP KK KN 
POPP OoOFrErOFroPPORPR ODDO DDODDODDODD DDD ODO DODD DH DO DDONMNONANOANOAHOVHNHDWDVANAHDOAHDWDANAOINAAONNADOCCOCCOCOCOCCCCCCCCOCOCOCOCOCOOCCOCOC;COOoOOorKorroe 
DOOCOOSOOOCOSSSS SSSSS SSS SSOSCSOS SO SOOSOSOSSSOSS SCOOT OOO OOOO SSO CH OSS OC SSS SC SCSOSC OO COCO OSC ODOCOCOCCOCO CKO T POP FOP TOT KT OTP KOR Kr Orr Orr Orr Orr Oorror 
DZOO 200 SOO SOC SOO SOO ATOSAVCO SOS SCOSZCOSFOCSZOCOAOCO SOO ACO MOO ACO SOO SOS SOO AGCOC SVS SCO SOO SOO SACO ZVCSC ACOSO SVCOSOCOSOCOZOOSZOOCZzAGCOCSZOOZO002 
—e ea —e —e “es “ee “ese —e —“w oe ——e “ea —» —_—e —e —e —ae —es —e "ee —s —e —ws —en —_e —a —e —e —e —e se —e —e —ea —e —“e eo —“e 
NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN NN ONN NN NN NN NN ONN NN ONN NN NN NN ONN NN ONN NN NN NN NN ONAN 
AH AH AA AA eet AAR AA Aa AAR AA AAR Aa AA AAW AA AW AA RA AA AA AA AA AA WA Anke AA eet WA AA A AA AA AW AW AW AA Aa AA 
SPS LPS EPS KS ES ES KS KS RS ER DRS KE KO SOK ee ett et ED KR KDR Oe Get Oi tot 


=) > D D D D = > =) =) = =) > D =) = =) —) D =) > > D =) = > =) = DP D D =) =) = = =) =) Dp 
OW VOW VOW OCOD OW VU OHV OW OCOD OULU QV DU VGOY OW DOV ADV VA OO VAD V QU VAVV OW VU QU LUGO VA V QUWVOVV DO VAVVUAVV AO VMOU VU AU VUOUVOO VO UTIUU OU VOID 
BAARAARAR RAR RARROAARAARAAROORARRAARARARAARAARAARHOANAARAARAARAAHAARARRAARAAHROARAAARARRAARRAARAARAARAARAARAARAAMAANWAAHARAR 
+ Mm OO o Dn oO Nn ™ = Ts) Oo ee) on >) - Nn ™ st nm wo ~ oOo oO ° - AN © st Te) Oo Oo oO ° - 
~- BS BS é ~ oS o © o o oo ow oOo oo oOo vn oO n on oO) n oo oO aon Oo So 6 “Oo: O° -o ro) o °° o o - - 
So. <o -6 oO Co eS —) ° o oo o oO So © ° oO So. © ° S i) o °° oO o SO - - fF Ff & a - - Ff oe - 
° So 5 o eo =o ) o oS © oS © oS ° —) —) oc o So 36 ° o oOo ° o oS ro) co oc.lUmODmUlUlCUCO o So 6 5S ) ro) 
eo 6 «o “oS co fo Ss =) os oo 6 ° ° -) =) =) oS, So so =) o oO o o so So 'S “So: a: =, o °° So, 6 ) = 
z z = = z z z z z = = z Zz z z a = zi zi z = 2 a z a z z z = z Zz z z z= = z 
oo oF Oo oO oO “Oo: oO: oO ‘oO “oO oO ao sao ao a a oo asaeo oo co omd+o caso oc a om ao ao oOo A oOo oO Go <a 
fe 5) eS) eS) es) es] es) cS) 3) es) 5) ea) FQ es) es) 5) es) es) es) es) es) Fa es) es) a fa Fe 3 fe Fe es] es) es) a Fx es) 


OP ODOC AMANO DHNOSCAMAMNCHODHNOCNAMANOP DNS CLAM APIO DHNOEPAM SFINOM DANO AMANOME DHNOECNAM SNOOP DHNOTNMN ANOS DHNOTNMN AN OP DHADNOTAMAMNOE DHOSCNMasnmuomran 
MONON Stat PSAATSTIMOMONNNUVIMI MMM Cowon wud OH onouh eee eee remeh COODDODDDDQHNAAAHAAAAHANN DOO 000 OO COFFEE ETKAANAAANAAAMMAMMMMMMM Mara sara asasats 
WWD LD I EE E99 0 LL 6 U9 09 6 EO EE 9 9 0 8 090 9 LO EE UE 9 O99 UL 9 00 0 0.00 11091911 10 LOL 10.6 101010 19 LO1L001 9 LO WLO10 WLO.0™ WO LO 0109 1 (LO L010 19 100101010119 10 LO LOL LO LO WL LOW COLO. 


em eh AE MO FE NO NO ™O DO COO eO MO MO YD ODM AD FD FAN BD KD KD AMD SD mH NH OGD OO FO DO DO KO MO MO OO ASC BAEK ker hie 
ao 70 NO MNO Mo MNO MO Mo NO MO MO MNO MO MO MO NO MNO MO MNO VS VG VO YO YO VC UT UT UOT OT UOT OFT UT OFT OF OFT UOT UF UF 
NO NOD ND ND NO NO ND ND NO NO ND NO ND NO NO ND ND NOD NO ND NO NOD NOD NO NO NOD NO NO NO ND ND NO NO ND ND NO NO NO 


Set ON MOUNT ROWO MAUR AOCONSTRHODNMUMMAOSANANODO BOM DOONANOOD ae gO OHO UNSTAUWO RAO MAOONSTHOON AOMAOANTNWOC LOM MOODNAHOOD es gO MMOUNTAWO HM ae URMO 
ANNASNAMSAMNMS NN SMMNAM AMS FWA AFM FAN ATMO MMM NNN NWIW NWO NW OLN OO NOW INWE NE ENE EEE LOE DGD O CHD ODDODNONHONHCHNCH hoe etocetoctencamoMmommemmcmv 
DOUWDWODOVU DOU DWV STOW DUODOOUW DON DOU DOW DUD OUND OW DOW OUW YD OOU DOD DON DWU DO OWDWUD OW DOU DWN DOW DOO DWUW DOU OD OUW OW ODOWW DOW DWUOOWOMWDWWOUWNOWW 
DNNONNODNNODNANOANANDANDNANONNONNONNOANDANDANDNANDNANDNANONNONNONNONANGNNONNONNODNANONNODNNODNANGDNANDNANNGDNNAGNANONNOGNNONNONNONANNONNONN 
DODO OSCOSSOSCOSOS DO DSO SOSSO SSS SCOSO SOOT OS SDS SOSSOSOS SSS SOSSCOSOSCOSSSSS STO SSS SSS SSS SOS OOD OS DOSDOSO OOO OSSSOSOSSS SSSSSTOOSOOSOOSOCSOSSOCOCOCoecod2 
DODO OOO GOO OS OOOSSOOSSOS SCS OSSD SDD OSS COSOSSOSOS SOOO OSOSOOS COSTS SDSS TOO OSCO COD STODOOOSDOSOO SO OSSSOSSOSSSS SOSOSSSSSSSDSOOOSSOSOSOOOSOOOSOODOOOO0OSOO 





PAGE OWA 
COPYRIGHT IBM CORP 1976 


EC=375222 


CHANNEL/4963 DISK UNIT P/N=8327653 


PAGE 04 ETAZO -S<= 
COPYRIGHT IBM CORP 1976 


375222 


EC= 


8327653 


P/N= 


CHANNEL/4963 DISK UNIT 


£FAQ0 So] 


STHT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


>< >< =< 
i 
re —_ 
N @ 
oO =z 
oO © = - - 
rs) N pan N Sun © er 
> oO a . oO pa . o oO 
I i) << ~ jo) «<< oan: O oS 
WN © ' ive) jo) . ~ = io) 
fz] Zz - - = - aa] i = 
> iT] N - tl N - e "I 
. wn ae oO Jp) «i on) U un) 
~ fa ~ io) <3} | io) . a 
N > ~ UO > ~ oO N > 
(o) . —_ ~ e —_ —_ ine) @ 
= ~ iT] i ~ tl 0 © -~ 
>) co re) e oe) ° E+ Oo 24 
© ~m =a] O ~m e 1) ia) io) ~ 
ol io) 14s) . <a>} ids] . inp) = S 
= io) . w co) » ~~ io] It © 
I o>) -~- N © ~ N (o>) n © 
eH ol i=) =) oO jo) io) oS <> oO) 
ol ~ Sa oO ~ st ro) = > rs 
. it oO i) oO Oo " . uN 
<>) =a) © =) & co) = WN ~ ee 
© oO oO u ro") oO fx - ol 
. S fey Ww . Pry nN > Ww » 
(o>) Zz =~ ie) =) ~ ica » - = 
- 6 it > e It > ~ o ce 
io) W a . I ei . Ne) o ll 
© Gy . © & » wo ~ - ~ om 
oO «x x - «<i «<i oO < oO iH < 
oO o Au | - Ay | oO . oO e oy 
o>) (oo) & oF) oO . fa¥) eo cO oO © » 
o ~ ~ [<> © - fA So é~ est e Lad 
© (=) I Oo I . oO << {I 7] It 
=) oO © - — a>) - ~ é~ & oO jy) 
© © = N i = N It — oOo a 
- © I «< eB — < e =. e So — 
io) jo) Ay é~ oO Au é Oo iT] za >] Au 
© Oo » {I ~ bed il - © oO So 
Oo [=] o Ay fy a Ay oO e “ td oO 
on) © ~~] ~ « (@) Fi ~ << fq pon os) N oD SA 
(a) © a «4 24 . af «a = rs <i & foe) ao <i f& 
Oo =m i) muy ams Gem & oO -_ aSP eM om ry oO «~~ Gam Oo -« go -— - GW om 
eS &- = <cAX © lO WD <“U os —<o -4 eS aN Oo ™m ao wn © <Q = 
me N (a) au N | ioe ee ee | Ze N aM HG me hu =m am O™ se ™ S xe 
H emOOhOO a Ay weXOOOk ~ WOnr>dHAOde H Ore ~ Oy eXOOOCe ane AWD eld JOcie FH ab Or Ore ~ UOMO wOOSZNN ~ YY wMOoOOoOazTO Bf woo Oe ~ 
KN aAAHOeTO On WO Oe eo > |} COM ca XND2tOOe Oe “DSA acihiOe -—o Tea > || BOM oN VcHoOe Oe« BMHOOmAGOOCDM De “—NDEBcOCO Oe “HD at Oe ro 
“0 HTD A™ ANDO HT MN AMZAN™Z HUG! 8 SR HP PYTHON HOT TAP AN™2Z WUC e © oe BT ON“ ON ~RHH OO HT OO ™ANO HT Pr ONAN HOw a= 
NAEOANHNNOMN GMA ANHANNOGNB Ge 1] CAUBHMIANNCBABNHNND MN KG RONHNNUGNG BH Il CMBHMANNGRANANNS RN CG Il Cm MtOANHNNOBNEMHARMBNHNNOMN SEGA ONHNNAMNG 
AE He One OR HHH Orne Ont tm IAP YH e® Or® ORR I ~Hiidle Ornle Ont tI “dH He One® Oem HAH One® Och ™H Arde One ORE Heide Ore 
CE eCecet ei Oe Edeteneietet peat Riel bite OU nth ciate eee Fie ei eRe eet GU ci eect ewe fer ee GE Feat ee Ed cc eh cet os eC) 
~ m= =a = = A ww >< = = PS = = AA ted = = HB ~ = Zz = a OS Zz 
>< as] WO XM wo Oo we wl >< .<) WD os) Oo et wH >< ids) O >< >< io) OO w WM Os és] 
ae) te HH Db a eS «am i) ei AH Pp kei eH > <a i=) ei eo =] ei eH > ei eH © ei 
UHROUULUDOUUHUDHUHOULDUUULHOUDHOUSOUUUVUUUHOUUUUUHNOUUNROUHOUUUUUURUUNRUBOUVLULUUUBHOUUUUUA UU OUROUUHOUUUUUUNRUUHUHUUULUUUNHUUNURUUULOUUNHOU 
AR AAAARACGAAKAROARAARODA ROAR ORARAARARROAARAAAAEAAEOARARAARAROAARMARARAADQADRAARRRAARRBRAARARAQRARRAAARAAKEARARARARAeCAACARARARAAKAA 
ad coc ANOS -- NN oe leer— e— 7 wm wo PE cow} Do 
tek er NN NN NN AQANNN NN NN NN (NN ANN 
oo oo oQoooeo oo oo oooo oo oo oo oo oo 
oo oo oooo oo oo ooooe oo oo oo oo oo 
oo oOo oooo oo oo oooo oo oo oo oo oo 
=) i) MAA 9} wae 9-9) Ze Ze Bm Zam =~) 


PS FEE EEE EEE FEE EHE EEE HEE HF HEHEHE HEHEHE EH FEE EEEEEEH FH FEE HEHEHE EE EH HH FHEEEHEHEHE EH HEHEHE HEEHEEEEH HEHEHE HE HH 
DNOMNAMSTMNOLDHNOKNAM TNO DNOKNAMSFNOE DHOKNMIFNOKDHAOK—AMANOKDHOFAMIANOPDHAOEKNMANOMODHOCAMSNORDNHOKAMSANUOEOHNOEAMANOLOHOEKAMANONCHONE 
DD DDDDDDDDNMANAANANANSOOOCOCOSCO COCR PRPC EEK ENNNNNANANANAMMMMMMAMMNMM stot ttt TITAITMUMMNMNNNNNNN OOOO WDD OWUKORRERRERERL ODDDDDDODDOAN 
DO ODDO ODO D DDD ODO DDDD DONNAANAANAANAADNAN AD AANA AAAAN AANA AA ANAND AAAANARAAANAAAAAAAN AANA AAAAADAAAAAD AANA ADAAAAAANAANAANAANAAANANAAAAAANAAN 


(an) 
[o) 
io) 
© 
© 
a>) 
io) 
© 
<>) 
- ~ ~- fo) 
a) fry fy Oo 
[o) N N So 
© fey Fu - 
m= ORIANARKO OF HY ONTO Seu) fF © FOrTronr OGDOON” or Ff Osrtoe est FO SFOronr ouronr O~r FW KE COTFONN OF fF CUONCOSTO oF FW OCOFtOer rw 
oO O2UC0ceO OHO WO OFrAcSe CA Oo S&S OfRUTO CONCO oU oO OM~TARoOo COU © O&O OCOMUSTO OMAMOCOS COU © CO OCOHACODMW CU w SCAVUSCOOC OU OO OCARSCSO Oa 
OC NORMNGOSO OF DH NDWOGTOMCOH DW WO ANEKO NOANCCCOTF DH NDMDWOCSCTOCOYU HA WO NEINKO NOHCOCCCO” DH Kh NDONCO OF DH MARNOSO OF DH NBDWOCOMOCOYU 
DOD ONNOOO CU — ODNMOOCASCSrY &F- © ONHOD ONMOODOOU FF ONMOOVOCOY $— CO ONMUG ONMOCOCCOUD =—-— ON ODNMOOCOD OU &§— OCONNOCSO OO =— ONMoOOCAnAOoOrE 
N FODKOM Omg YO HMONTOODNREH A OO NOt HONTOODNMO FW ONTODAMUA OC N StODUNM ONTOORMUEF COC NSF OMDRUMO NAT —wO DAUFON WO =< YUNONTOCO 
STEELS K NN NN NMMMMMMMNM MJ SF sete stsr STMOMMMMWNM MW WOwWWWCWOWWOW ~B MP BEAKER DDDDDDDDD TD DAH DANN ett ec tetct et MM MM MQ MMNVUOVULUVUULUYU 
DO DODDOADD DD BD DDODODDDDOH DOD D DDWDOD DDODDOODOD GO DDODDODDODODDMDMDD DO DW MDMDMOMWOD DOHDDDDODHD DW DD DDHDDWOHD DO DW DDODDMO DH DH DOWDDODOODOO 
N NANANNANN NN N ANNNNNANN ON ANNAN ANNNANANNNAN AN NNAUNNANNANN NN ANNAN ANANNNANN ON NN ANNNNNANN AN NR ANNNNAN NN ON ANNNNNNANANN 
Oo COO00O0O CO 0 COCOSCOOCOO © O ©CO000 COCTOOCCOD CC DOCCOCOCOO 0 © O2O0OCD DCDCOCOCDCOCOO 0 CO CODCOD CO © CO0DOD0DO 00 CO CoOCoCocoCoCoSO 
Oo SFOOCOC0O0 00 6 SCO09OCOSSO 0 F&F COCOO DOCOCSCSCOS8O® © CGOOCDCOSDCSCD 0 CO COCODD COCOCDO0DODO 0 COO COD0D0DD 00 OC COCDO00DSOD CO CO GDOOCCOCOOoO 
d< ~ os ~< 
~ 
. ap) 
n eo 
fo) © 
© io) N We) 
Oo © - nes =~ = 
© = oO ae © = 
= I jn) << n) << 
u 122) So - o>) . 
* « nN & = - ~ = - 
Ww é~ fx > " N a 1 N 
on] (a) ia] . Wn << a) n <a 
So © ~ 5 oad ~ — io) > ~ 
© © L need - & ZT = & et 
—-<] = \O io) ~ ii Wi ~ u 
tl Ul © i) jee) © wn jee) Oo 
ap) 179) jo) ow) ~m a] fe ae) a] 
FQ Fa © (oe © 1s) > So id] 
> a oO ~ ) - % © . 
» bed — tl io) ~ ~ oS m~ 
i=) >) i & oO © ve) Ol io) 
© i) G oO — =z jee) vee za 
© =) ol . i} © io) tl © 
© © a H © oS al i=) 
Fey a - (e) ol Oo >) ol o 
a i 9 © . e fra Oo - 7) 
tl I oS So U ~ —_ M4] —_ 
= = o i 2 (S} Il Il @3 i 
oe iow tl © tl =a BH Il & 
«<< ac = Q = Fa ol = fy 
C4 Fu [aa © a & » oS . 
& » «a oS << < Puy << « 
Oo O Ay oO - AG \ © Ay u 
tt lI & om) co) & Ay = . Ay 
0 © = o = - rea} - ad rom] 
= = ul i) © tl & © 1 
rd 4 © oe oO w - aad ia) = 
Au Pu = © oO 4) N So = N 
’ & 4 oo io) | «<< oo] rt C+ 
Ol oO As © io) Ay é om) Au od 
fx 4 ~ i=) i) Il © - » 1 
« * ol oO Oo oO Ay =) a ol [oY] 
eg © << i) «G —< © Oo oa «<a = (-) - < & SG = 
it mm, ~ Hs» Gam MO oA Gem NN on G~ OO a S i-199 Gea Cy Oo as io) GoW a= Gam . 
OL ow qo Oo &™ ao ©O Dn ao Oo ™ - aad N nO ee Oo ) aX wo mo wv 
at —_—* © Cd zm » © - =m » © am » = [~) = = om = ZS ome aes = Oo ae =m a mt 
RO mWON Om SO MOAN On oO MOwr Oo ~ MOD Oa © Gros GBOnMnOr 20 0O-, So Re oe om MBO Gn Orm 
~ HOKMO ®8SOOONM 2D BOR eOOONNM 2.0 WOH wx<coce am E10 ®<OOkCO ~ & weOOoOr ~ MHOrKAOde H wOOmWO A fy ws OO Or ~-_ OAs AO clw 
- Ou HHOMDSAHOSD YOO “RPMI eeOOo OO HHRiPoODpaAcdhoe S10 “RHPNP2ZchOrom Oe OO DachOe co —la > || COM oS NDACOOCO Ce WD mcthOe mo fa || Om a 
CAM MAN™ HOO HT OTH AAN 0 HT AHO OAN MZ HN OO ON ZO BET OA ANNO HM AU AN “IU Oe © “OH TO OQ™ ONO HTN O™AN™~ZHUOe eo 
CORN Mr 1 Ca BNHNNOBNST GH ll CONHNNO ANS GHA ll CKRONHNNDMNOGRA I COCOANHNNO RN EGON HANUGN GBH I CACBCHINNABNHNNORN EGA BNHNNAMN BG || CABIN 
© One OH SOR HH ee OH OR HET Hee One Od HT HHH One ORB HA Hele One Od SHH de One OR Hmm “HH Ae One Oc HHH One Oct ™,)1-1 
MBO Re Filet Hele eee Rye ee fee ee eee OO a OE Oe EO eS bet 
= = H p< = = A wx = =a A wx = =a A BM = = OS = = A wv »< = =a a = A w7 
as) O Mm Ps oO O ri x 1a) Oo ww © O wt bX 14) WO Ps és) Oo we 4 bat 1s) O PM ids) Oo A wl 
tH eH He i=) He ei f& © re H > D> ei eH = D> ei HH © ri He => >) bet e © ei He > < 
eh Pb pat int op Ft AP pp Ad OWA AALS bob edanl bedaatndonbd Bde eh An Leash Sede hnd Ah kad ded detested dah oh oe ge eed aoe tan de ddd emi g taped Rh a pe hone beth tab oto debe ham 
ATAATARARRARAQAARAARARAROARABAROARAROARARQARAAREOAARMARAROAOARAARAARKARARAAARAANRAORARAARAAARRARAARARATMAAeARAARAARAAANAAARARAAARA 
NN MM rsmnwn wOorr~ Oecnoa oOo Penn mm fn ame WWI 0 
oo o&oO oo°oo oooeo oooe -o teh ae moe oad co ted mad Crerre 
oo Ooo oooeo oooeo (ole lenjla) oo oo°oe oo oo ocooce 
oo Ooo ooeo oooo ooooe oo oooo oo oo oo°ooe 
oo oc o°ooe oooo oooo oo ocoooo oo oo eooooe 
ita a Va a en ae a) om) ma Zima me me Zee 


SHEER PH EEE EE HHH EEE EEE EEE EH HEE EERE HEHEHE EH FE HEHEHE EEE FEE EEEE EE EH HE REE HEHEHE HEHEHE HEHEHE HEHHE HHH +F HH HH 
TNVWMDNOSCNAM TNO ONOCNMANOHDHOSCNMTNOPSDHOKNMANOMDNHNOCNAMAN OR DHNOCNMANOM DHNOCAMANOKDNHOCNMATNOE DHNOKAMANOKDHOCAUMANOKONORKNAMsWOM 
WODCODOOUE EEE EE EEE DDDDDDDDDDNANNUANRNANANSCDO OOO COCO Ce POM MEK NNNNNNANNNNAMMMMNNMMNNMs SPST SATSTIMOMNNMMMNMN NIN OOWOOWUOWODURPREREERE 
PEO PEPPER PPeeeeerReePRPEeEEEEEEEE DODDDDDDDODDDDDDNDDODDNDDDONDDODNDDDDDDDDODDDDDNDDODDNDODNDDNODODODNDDDDDDNODDDDDDDDOMDDDMMONMOMOND 


oO 
oo) 
oO 
ro) 
oO 
ro) oO oO - 
<3 Fu So oO 
oO ro) oo) - 
Fry Fry (=) oO 
lan) Oo o- ~- = jew] - 
fa Fs fu (io) Fy oO fy 
oO oO oO oO N oO N 
i<) fu Fra oO fra © fy 
Or A Kat CvotOANmM woo FW DO OCHSONM wot F OC OotMOKN szO HY OC ORINNKO OF YY ONTO" HM FM © KOK Or OCFNNWCO OF A CMOstrOoOr eum Ff OO e—Ord 
OUD 0 Occ OFEFCoOo Ov WO COC OOPFCSCO CU wo CC CaetKICO CO OW OD OGAVEOO cv wo CANDO OU © GO OCOMUSO OCOFUSCOS OHO WO OCOAROOS CA LC oO ONOSt 
COCOT AD PH HEFMoor oF HD OO MHEMOSYF OF HD YO MEMOCONSSCO DW OO MEHNCD OF DA LEPWDOMCOU DW WO ARIEKO NALNDOD OF DW NOBWCOMCOY DW oO AHine 
DOCU TF ON ONMOOO Cf = FD ONMOCO Ch — FD ONMOODMOCOR — OC ONNCDO OV K— CNMODVUOCOM — CO ONRUO ONNOCOCO OU &— ONMOONRCOKF —-—& CO ONRY 
NMst0 © @U FONSTOD mU N F OOUMO NT B@ UO DONTOONGMYD COC N STODRUEA Oe UO AONSAWONAL HM OC NeteotO DONTOOD WMO N FOODRUMBRON Ft OO DODEYUO 
DITINtA WN WENWOWONWLO.10 tO HEE O OD DO D DNNHANAMNAMAD a — etetietet et MOM M MYVUUYUUUUUU OF A AARARA ARMAIBRIA WR fm fim hOO COC CO OCCOH- 
Rene MB RR PEER ERE ER REE RR RE RE RRR Ener rer ER ORR EE Er BR BR OER ERE RRR BR MOREE RR RRR ER EER Mm EAE EEEE OO OO OO DOOM 
ANNAN N NN ANNANN ANN N NN AQNNNNANN NN NN ANNNNNNNAN NN ANNNAN AN ON ANNNNANANNN ON ON ANNANNN ANNAN AN ON ANNNNANNNAN NON ANNAN 
C2000 0 CO OCO0000O 008 0 OO CO0CCSO 020 © FO eoocococeo 0 0 COCO CDO C0 0 CCOOOCOOCOCOCO C0 0 OCOCOCO COCOoCO 00 0 COCOOOCCOO 0 Co COcoOo 
COCo0o0 0 ©2O OF20O000O 00 0 0 COO0000 C80 0 OD GOCCOCOCSCOD © 0 OCOOCSOO CSO Oo eCCOOCOOCOCOO 0 0 eOCeOOO CcOOCCoOO CO 0 eoNeOCOOCoCoCO Oo Cc O00o 


























PAGE O5A 
COPYRIGHT IBM CORP 1976 


375222 


EC= 


8327653 


P/N= 


CHANNEL/4963 DISK UNIT 


PAGE 05 LIALZO SS = 


COPYRIGHT IBM CORP 1976 


8327653 EC=375222 


P/N= 


CHANNEL/4963 DISK UNIT 


LIA20 =e 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


~< >< > =< 
. 
on) 
Ww uw. 
a) So 
~ a) oe) oS 
-~ w ~~ (=) ve) ~ => 
~ » [ap] ~ = © ~ © 
—< ~ ~ jo) —< i Se < = 
. Ne} = . jam) - YQ = . Ht 
NS © N wy il N ~ it N je] 
= = jo) © WY) < A Sp) < > 
© S fr od — » 
— Oo © So > — oe) ie = a 
—_ = = = & —w N - wo on) 
i i 1 ll ~ i N ~ 
Oo Sal & 2) oe) oO © CO } me 
&e oO Oo <3) ing) et an) ine) e © 
(a) » ~ > <a>) ids) oO © as) © 
~ © Ww & © . — oO . oO 
~ © wo ~ oO ~ tl ) -~ — 
lan) fo Oo O oO om) Ee oO © I 
i 2 oe) ) - ~ Rog Oo —_ => a 
i) “\ oS N lt oS ~ NW ©S or) 
© © = © a) iam) ©) e oO & 
© oO il i) oO oS fare oO oO c 
fy, © WN) (o! Fy im) » fry © 
~ oO {3 ~ mM — N «< = cm) 
i WW > i 3 il I cS} It © 
eH = . GH ul eH = I = WJ 
Bey AG -_~ ~~ oO = fy jaw) = Fry 2 
» SG -~ N . [ae] & «<< A4 & mG 
<< Au —< ~ = << G Ay “< < < 
tt . . N © Pu It bd Qu J mu 
Ay (@>) © oS - . Pu za % Oy . 
4 Oo ~ oO © Lad 4 tl - fx =a 
« 1 oot Ol i) Il . 0 i » T] 
= o ‘a = im) ids) - a a) - o) 
N = = iT] i 0 = N r—) = N = 
< 4 ~ & io) 4 «<< Ay 4 «t a 
~ Ay 1 oO = By ~ . By é By 
T] » (e) . i) ° . i oO . Hl . 
Qu oO = oO © io) oO Qy 52) o> | Ay © 
«< = & - ade » xO fo) qf Co = (an) et f «a = . 
Kom ~ So =~ Oo Gas Oo «=~ ao Mm a PEN os Geax » ~ oO = Gr aN Ga & NX ome 
co aD OF Oo ain oO ww ao st io) ao mM cco re aN arn ci © ao - wD WD 
Ba a ome se + t+ EM me DY Be © mae aM) 2S = AM oO W =e WK aM 2 ame mae 0 
BO eG ROr Ben Oe SO MOnN® AOD ~~ TO Oem So CG oO om RO een BORN &O-, BE on GO eG eK I Oe 
KOARHNIAN GOxKMOOR, aN LOHMOMON <cOrxsOonanO GO xsOO ~~ BOARHHAIN RMOHMNXMOOm eo - COMO ae BOARHAIAN MOKOO a e 
WON <sHOdme H eb OOO- NO NOMS weiooOe ~ YY WOOBOO a fy we OO Oe ~ MORNKHOcme HOMO eOOO.O LU & OO Ore ~ WOM yOcie 4 weOOOr ~r 
—Tha> [| COM tM 0D Act hOe Soc ~EREHAHOND athe Oe Y“NDZaOOCo O= KMD a2cthoe row —Ta > I] COM aoe HOOD ZARINSG ter “WPA dhoe Saal te |] OM eS ODS Oe aro 
ANTS RUS. = SORT OR DAN SHOO RT 0 QS RANCH SO QP RANS ET INQ MAN SE HUGe & ROO RE st QO ANO Ee ON SZ hUOe © SORE NBO 
GH CGUBHANNCONHNND ANG G-] |] CR CONHNNO MN GGA OENENNO GN GM YQKBNHNNUOGRN GH I CACBHINN I CumBENHNNOMNN GH BNHNNUGRNG Gr Il BAB mItNNeceNHNND BNO 
O et tH He One Ont eT He Oe OR a HHe One On HH One® On Bt A tn Me One OR SH Hie OH” Oc Bt HE SH He Ore 
Te RCH ete OU a Re te ee Rye eee ee OO ee ee Patient QU ethic bietetei eet ome Bice eet fei betel et eid ec et i bt TD 
= A WW ~ = = tat = 2} = a= Os Zz = A ww G ~ i] ma =) 2 A AW < = 
WO A el ~ © WO x >< © WO Xs es) O pM a] O eA -/l >< >< +4) O .@) Oo wa el >< oO 
eS > <a i=) e HH > eS H Db KH He > H AH > <« Hi => te HH © re eS > ==) H 
MFVGSUUVUVOVOHOUVUUVUHAOUUDHAUCROUUDHUUULUDAVUUHURUVUULDUDNHUOUHNUHOUUULOUDHRUUHUZUVUUUUURUURUUDUUUUNROUULUHOURUUUUUUNUUNUBUUUUUUURUUUUULUUNHUU 
KZARAROAARAARRADARAAEAAROARAARRAQAAARERAAKARARAADAARBAARREARAARAARAAEARRRAROARARRARRRAARARARAARAAAAZARARAARARAAAaaARARARAAARAARAAAARKAAaA 
WINWW | ad O@o DAO oo Sia es ANMNM tar NW Ww mre Oo HO 
raat ara ta ast ww mw INIDLAW) min WW wn Velteltel's) wu) 
ooo°o oo oo oo oo oo oooe oo oO oo oooce oo 
oo0oeo oo oo oo oo oo ooooe Ooo oo oo oooo oo 
oooo oo om oOo oo oo oooo oo oo oo ooo°o oo 
Zee a) Za Ge a=) Zim me Zam Baas a) Ve en Eo} 


+e Ft KEE HE HEH HEHEHE HEHE HH HEH HEHEHE HEHEHEE EHH HEHEHE EHEE HEH HEHEHE EE HEHEHE HF REE HE HH EEE EE EEE FEE EHEHEEEEE HE fF HHH HH HHH HHH He HY 
OM DADE NAMTANOMDHNOSKNAMANOEDNOKAMANUOPE DHDNOENMFNOEDNOKAMANOCHODHNOKNMAN OP DHOKNMANORDHOSCAINAN OF DHOKAMANOEKDHAOKANNANOMDOHOKNMANOR ON 
OOOO SE GES E EKKO NANANNNNANANMMMMMOAMMOM MM + st ttt SST STAM MMM NM NNN OOOO CODONDDUOEEEREEEEEE ODDDDDDDDDMNNAANANUANNHOCOOCCOOCOOCCOeC3Trrercreercce 
AINA ANNNAANNAAANAAANNAQQAIAGA 
TOO OOOO OO CEC Ee 


fry 
io) 
fry 
ag 
fu 
© (a) 
fry Oo 
- © 
\O R= 9 
- © [o) - aa) ~~ - 
fe fs © fy S) fey Fy 
N © j<) N ~ N oS 
Fizy fy (on) fy fy Fry Fey 
YY © SFOrTror C007 Do AW Te COUONOE Om A ONNOWD OF FH oOOoOtoOr eN FA OO FPOPTOr KE COADOONO tO FH ONTO a-~r F&F © Or Or OMnmor Ra a) 
© OC OMUSTO OMMGO Ok 0 CO CDOUCO COU © COU0D0SD OU WO ORACO OU CG CO OHMUtTO CO OMEOCO Of © ONASO OU © OD OWUTO OMRIOCO O 
NN O NAEKOD NANMGDOOCOCOON Th NEHOCOCCOF HD NEHNCDO OF DW NHWCONCOU DW YO NANKO KF NaNOCOCstr ON D MMOCOTOOU HD WO NEMKO NAGNOONCTOCO 
—-— OF DNHUD BDNANMOOCDOCOCOHO=-~ ON ONNCOCDOCOU = OCONNCOOD OU &— SBNMOOCVULSCSOrF — © ONhUD ON ONMCOO Of Fr ONMOOVDOOrF — CO ONhYUO ONMOODOOR 
O FM ONeOmt URONASER OMe OD BURONANOD @ UMONTO OFF OC NAFODRUAHO N fF YODMEWO NF wWDMetVUAO NAF GO BURONTHOD a UY WONWO aeURONATMNCoO 
DO DO HDNAINDO DHNetetCeterece\terMMQ NAM MMMVUYUVUOOU YO LUUARARA AA A BAAR fw & Rho OO COOCO RK KT KH PHM ANNNAN NN ANMMMNNM /MMmNsastasrtot 
DV DVD DNDDHAAHD HDAAAAAAAAAHA DD AKAAAAAAAD HR ADNDNAMNNAD DH HD DAKNVAHAAAAAA QD DW DONG cheG cOetieieietet chet mf eee eee ot ce ei ce 
N QV ANNAN ANNNANANNANNNANNN NN ANNANNNANN NN NANNANN NN ON NNNNNNNNN ON ON NNNNN NN NNNANNN NN OWN NNNNNNNNNR ON ON ANNAN ANNAN AA 
oO Oo SOOCOOoO GOCCCcCOOCCoO CO SCOOCOCOCOCSoO © C2OCCOSd CO G&G SCOOCSCOCCOCGD COC OG C2O0O0O0O C0 COCO0DO CO C0 DOCTOCOCOOCOOD CC COC OCOCOCO COOCCCOCOOO 
oOo OF SBO00OO CBOOOCCOCOCOCOO O20 SCOCOCOCOCSODO 80 COOO00090 CO 0 S2O00C00COS90 OC GO G2O000 020 FCOSDCOD CO © DOOQCODOOD © © COO00 COCO CO0COCO 
d< >< >< bc 
~ 
=a 
© 
Ne) - an) Vo) 
_- m - 7 ~~ ow) a 
~~ S ~ . © ~ = =) 
<n jw) << ~ i) x iT © 
& io) © SY © . nN o>] 
- = oe ~ N = ~ 4 a 
N tl N - => i N > I 
«c ~ op) <x © © 7p) <x ~ Yi 
~ ap) 4 é jo) am) <a] ~ ~~ FQ 
~ Ne) > ~ oO ° > ~ aa) > 
aca - . = — a ’ ~ n & 
WW © ~ Ul lt tl ~ i} - ~ 
o) oO co © GH wn co @) io) oe) 
EH oO ~ eH oO ica ~ H <>) ~* 
wu —_ can) a) ™ > © 05 oO oS 
. Ul oO & - » oO & _ © 
_ al © - S ~ © ~~ I © 
© ao oO} io) =x - oO oO ee oO 
fon a ' —_ at oO CO — fo g Oo —_ 
io) .@) © “\ = ll © ba It 
i) ~ fH © © fo) ei © O a 
i=) © ©} ij) oO © Oo © - OQ 
Fry N . fey oS oO fry o>) iS 
= II < = o = fy ~— N <x, 
WW = (GS) uN I tt (S} NN rf 6 
eH ioe) I H = Es F] GH = ul 
Fey =o) = Fe ae) Ol = fy ony = 
. Ay poe . « . pee . wx 
<a » «ec < As <a i <G Ay < 
iu =z Au tl be o) Qu iH - Py 
jan " - joy) ion) . . Qu kms . 
<2) 14s) a is) © i) ~ 3 il - 
S z rr . TT r) iI S w I 
- a oO - o © 0 = = oO 
N Ay = N Zi wz = N J = 
«<i . J < rl So 4 «x oY) ~ 
™ oO Ay ~ Ay ro) Cy tS . Ay 
It fa ~ I & jo) - & rT} a . 
Au . ro. Ay ro" oO S o A, rc] oO 
—G = on] “gf «t = . ee «oO i) ge << = = <— } 
om . -~ Tr !_ Gr as Gam » oO am - BO a ko MO a Sem » ~~ oO as Qe -_ 
ae wri RAN oO ~™ aU Ww GO nH aD ™ oO dO N io) © an aa Oo 7 aN rf aU © 
aM a me HMO me | =a ™ =n Aa am He + ar; Fe t+ Oo = = t+ =m a a HM OO t+ =e t+ 
RMOnMRAOrr BOANN-O [o<t eN BOSD RKOr ATOR So BORD So CG ms om MO eGenDr BORN 8.0 Ge oD om 
MOn«MHOee HOMO BOOOND UO & esOOOr ~ MOM AOdme FH SOO Or nO Aa weOOoOkhoDmD a Gy esOO Om ~ MOMMA Odm= HOMO esOOOer .U GF OOO ~ 
“Ta > ||P COMP a kHOODARRHOD Str RODS Oe mew “HP Il ROMA MODSRMNOw CO “ND SMO0O0D C53m “CDSN Oe Re HP Il OME MRHOODSRRINO ster “ODeAdHNOe Te 
AN™BEUOCe & hoo TS st AMO QDNO HT Ow Ow OON™ 2 UO” & “OH TD OAMHCO AND H™T OD AH ONO HT 0 OD EH ON ™ 2 UO ew m™bFhOO Fh st OHO ANCHE Ts wr" Oo 
GA BGUBHAIANN Il CkymBNHNNGGNNGARKBNHNNDUGNG iH I CGUBRINNGONHNNORNOGRHEBNHNNORN ct GHEBNHNNU GANG HH I CABGHAINN Il Ch ActONHNNOANNEAOBNHNNOUBRNG 
Okt I een Hee One Och Hele One Oct tm AH Hele One OR Hee Ore Oc Hale On = OR ta eet Hee One® Oct ele Orie 
eC A eee Ueto UH OB UR Ue ee RE Hee 
= A = os a =a bs = = A wv es = =a = = OS = = A wi =a) >< a =a OS = 
Oo nf A os >< 14s) WD PS oO Oo A x es o DO Ps wo i | 1d) oO A os >< © O x a] 
SH > « et i=) laa Hw bP Hi es > < > KH eH D> ke HH > be eS > « ke > be HH © = 
MAOUBUVOVUVVUUMOUURVUUUDUDHOUHUHUUOUUUU HOUR USZUUUOUVUUBROOUQUVLOUHUVHUHODUULDUDANOUUNURUULUUUDHUUNRUSOUULUOUUURUUHUULDULDUNRUUNUBRULLULDUUNHODO 
LAR ARAAARAQRAAQHAARAAARAROAARRARARAARA CAAA ARAKRAADAARRADAAAARBOAARARDAARAAR AAA OARAAARARA ROA EORARAODOAAARRARRAABRRAR BAAR OROEORAARARKAA 
oorer NN MOM ara WMINWO ad a coc oor oore NN MOM aro 
MAMNM AM mM mm MMA mm mm mm tata a7 3453 ster 
ooo°o CoO CO oo oooeo oo Oo co oooeo oOo oO oo 
ooo°o oo oo oo oooo oo oo oo oooe oo oo oo 
oooo oo Ooo oo oooom oo oo oo oooe oo oo oo 
Za AA AR aE) ZA Am Ae ie oa} ZA Bs =o} 
SH EEE HE EEE EEE HEH EEE HEHE EH HEE EHEHEEHEEHEE HEHEHE HEHEHE EEE SHEE EHEEHEE EH HS HEHE HH HEHEHE HEHEHSH HEHEHE HEH 
AM TWMNOCMONOSENAMANUOEDNDOENAMANOESDHNOEAM FNUOPDHOSCAM SNOOP DNTAMAFNOP DHNOCNMHYHSNOUPDHOSCAMAPNHNVEDHNOSNAMHAPNOEDHOCNAMSNOPEDHOSCNAMANOPONOENMAWM 
DANNAKAANANDDOOCOCO 9 000 CE CM CMT MEEK NANNANANAAANANNAMMMMMMMMM ON st Sst PSS STP TANMMNMNNMNNNMNN OOO OWWO WON E EEE EE EEE ODDDODDODDNAARNAAAAANHRCOOCOCOCO 
ANNNAAANNDOCOSCOSC OD DOO SCS DODDS OOSOSOODOCODOSOSOOS SCS OSSSSOSSOOSOOSSSCOOSSCOSOSOOSOSSOSO COO SCOOSOSOSCOSOOSOOSCSCOSCOSOSCSCOSCOSOSCOHOOSOSOSCSCOOCSOOSOOCOSCOCCOCC COCO eKrererre 
See seed el ed eek el eel el nl ed see eee ek oe ee el ee pe ed el ele sa ae el el el ek ell ee eae el el ce lel oe ae el se se el el ae a ed le leh ke ee ed ll ee el ee a el ed el ee ee 
Fy 
io) 
Fa 
= 
[cay 
oO © 
fy i] 
~- jan) 
Oo a 2 
- m - i) oO - m 
fy 1S) fey fy oO fey ro) 
N - N oO oO N - 
Fra fy fu <3) co) fey fee 
Ey O© FOTOor Ta OTDODONOD Fro FH OOFtOCe e- FY OC KOK Oor CODO™ DO FH OCSFNNOCO Of FY COrtOe PO FY OC BFOTOrFr Ke OCOUDONeEF 2F0 WW COTO Se ad 
wo ©& OmMOTO CO OCOFThooo of YO DORSCSO OU © CO OCFOsTO OURCSO Om WO S2CUSOO OU Oo ONACSO COU © OC CHRUTO CO ODMOCCO Cf WwW ONACS oh @) 
DO NEENKO gm NANMCSCA ON DH NHAHWCOKCOUL HA WO NARETO NANMNODTOSCOCOCOD MMKNDO OF DH NAWOCOCWSCOU DD OO NAAEKO Fh NAMCOAT ON DBD NDOCCEKOCOY 
= OF ONKRLOG ON ONMOCOO OF Ff ODONMOOVULOCOKY — OD ONHUD ONMOODOCOMOF ONNOSCOO OU F—-— DBDAMODOLOOFY F-F& CF ONHUD ON ONMOOCO OF =F OBONMOOVLOOCr 
O FD ONSOe URI ONTOORE UF N FTODMMUAMON +t O© DEOON FOWODGAUARONMY BIONTOD HMO N TPOODRMUARON +t OO DEUON FO ADGCUMON FCO @ UMONTOFO« 
UO UO AAAAN AA ARAAAAM AE & Bei hmeROOD GO DO COOP TF CRP KKOTNNNN AMMNMMM MSF SF AagrtarseTAMNWM MW YM NMNMMOwO wow wwoworPr fr ~ HEDODDODOO 
DO DO DDDDD DH DODDDD DH D DODDODAODDADAN DM HD AKHNNAD AHHAAAAAAAAIAY AKHARAN AH HD AAHAAAIAAA DTD DO ANMAAH DN ADANAHAAD DH HD DHDHAAHAHDAHAHAHNH 
NN ANNNN AN ANAANN AN NAN ANNNANNNANANN NN NANNNNN NNANNNNNANNNA NNNNAN NN ON ANNNNNNNNN ON ON ANNNN NN NNNANNN NN ON NNNNNAANANANS 
GO © CODCTO CO DOCDDTDO CO 0 BDOOCTCODCOO © FO COSOOCTOD COCCTOCOCOCO COCOTCOC COO GO COOTCOOCODO 0 © COCOOC CO COCOOCSCO SCO Co CoOocDCOSCSO 
COD 0 DO000 CO ODOCODD CO 0 COCTOCOCOCDDO 0 ODO COOCSSD COCCSCOCTOCOCOO COCTOO 080 0 SDOCOCCOSCO 0 CO O20000 SCO O0T00900O SCO Oo CcOODOCOSo0CcCo 





PAGE O6A 
COPYRIGHT IBM CORP 1976 


375222 


EC= 


8327653 


P/N= 


CHANNEL/4963 DISK UNIT 


PAGE 06 LIA2Z0 == 


COPYRIGHT IBM CORP 1976 


375222 


EC= 


8327653 


P/N= 


CHANNEL/4963 DISK UNIT 


LJAZ) == 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


STAT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


oO é~ 
~ ~ i) ~ l-) _~ 
< ~ S «a & ~ © < 
& => im) & -~_ wo . (-) - 
- (o>) = - oO N ee) = - 
N ~ Tl N (om) ~ ies) iT} N - 
< i) \é9) x Oo So i) Ww tt pa 
~ =) fq ~ So oO on) ica) ~ ~- 
~ O ~ ~ © oO Oo > ~ b= 
~ ~ . ~ (eo — = . =, ~m 
u i ~ I = ( iT] ~ It o>) 
[e) eH jee) Oo It sal op) (oe) © om) 
H oO ~ H H O ic} ise) a] Ol 
as) - -) wu Qo ~ > i) ids) — 
. - i) & . Ov & © & Hf 
lw) fm) oO j=) WO i) ~ oO i) oO 
zt Oo = => Ww jo) ine) = a » 
i=) oO tt i) io) © ~ i} (a>) UO 
ro) z qe oO “\ = oO & ro) = 
io) u oO © Oo tt om] Oo fo) i] 
fe, Ww . fry i) uw ie} Ss fry N 
~ 4 nN ~ i>) ic — oO ~— rT] 
i] ~ iS) Il i>) > iT] 6 i = 
a . " =a) ll . & Il =a] [ea 
fx ons = Fy = ~ ~ © = fey roe} 
ve) mS [ee ~ é~ . [ee » Ay 
«c © << «<<, Ce) —< N Fa < < - 
lI m Ay lt Ay ~ ~m (@) fa) It za 
fo¥ oO . Ay . c fo) . . ou ul 
3 jo) - f] Oo ~ oO o>) ~ 4 es) 
. Ol 1 » i] < Qo j=) u - = 
- = os) ad 1) ~ — Oo .@) - - 
N tt = N 1 — ll a a N Ax 
“< G - << - — GH >) 4 << . 
~ Oo Ay ~ Ay I oO oO Au ~ Ol 
rT] iS . il . e) » -) - * i FQ 
Oy ic oO Ay oO eH Oo Oo © oO Ay » 
-~ < oO Sa ~ «S ica} oD ca} ~O © ~ ~ << ~ 
< = os <=} < = e - gf & » ao i=) <= & «< = wo 
Gam . Oo os aN «=~ Gam » So = — Be Oo -~ qogCSo = Fao 9 GO om Gm » ~ os 
ao AF DO &- <k] © SO wD Oo «rn oOo an ao oO oO Ka WO wl aN om 
san = me aq = © = = © aN Ba =e as © mw 2M mm * © = = © oO = =. © =an Ba me AN qs OV 
~ BO eG Or Br Oo ~~ (<<) oP GO nRGRMOPr Br On Oo GMOnAN& Oo RO OO om © Gre Dem BO meer BORMNN OO 
CO pen BOAHHAIN MO-«KOrnW, ao x<xO0O~, BOARMIAN GMOxXxOw WW BOHMOHON moO MON ~O aorx<oon.— KOARASIN GMOHMOxoO 


\“ 
oor ~ NOnR«MAOme H ssOriie ~ & we<OOOe ~ MOM MOnmie Fi wesOO On DO MOMS OO Oe ~ YH wOOhWO a6 A wOO Or ~ UOM<—AOKme HOMO 86O 
BHO Roe “EPI MOM MMR DamOOe C5H “ODS On Re “RPI MOM MMOD Se MHOe NO “MHONDACEHOe Cf MNDZEOOCO Cf “THA RENOe w3oe HRS Il COM eM mHOODSe 


PDN A~MAN™ZAUOe © SBT ODEON BET ONO MN AN™ ZS EUO® & SOR TY HYD QTC AN ™ HOO HT YD A“ANO HER YO AM ANSCH Tm" OA "OAN™ZHOOe = ~~RhOOH~ 
ANN AANCGGH I] CAUBHIANNABONHNND MN eG AtONHNN EIGN G-] | CGAGBHAIANNABONHNND MANO el || CR GOANRANND ON ct GH tOeNHNNORN g GYQASOBNHNNARNG GH 1 CABHINN Il Gh aan 
“Arle One OR Ht mm AH A® On OK Hirde Onle OR HAE HHH One OR RT Ree One ORR HHH One ORR HHH One OR Ht mH ee es 
GeO Se Pace Octet eet icici cee Rete UU et Hattie eet Oe Bait ieee eee ee Oeics eee Reb OU th ey eh Et ci 
= = A w x< = a = = A ww al = = os = = OS = a = = AH GH bal 
wo O vA vA < és) WO Px a) Oo A 4 as w O Ps aa ie) WW PS Oo WO o O A wl esl os 
He He > « > eH eH > H oH > « = Hi HH OH > eH MH © He HH © aa He > « KH 2 
VUVUVAOLODHAUVSQUVLLUULLVUNHQULVULOUNAVUNAUHUVLUUVUHUVUHUSVUVUVUVUHUUD UV OURUOHUR UDB ULVUDOUVORUDAOBOUUUULONRUUHURULULUUDHOUUNUZOUOULUOULULROUURDLU 
ARAB ARAARARARARAARRARAAAARAARARARDAAARAARARARAARAARARAARAARBAARKRARROARARAARARAARARARARAAARAAROARARARAAKEAAKARARAARRAAARARRAA 
NUNOO dl CO AHNOO eo ANN MM r= = g mw Oorm coc VO 
| Sad ad Sad Se ~~ ~~ mmc joolee) mom ao loolee) coc cond coco Wa 
oooo oo oo oooo oo oOo oo oo oo oooo oo OO 
oooo oo oo oooo oO oo oo oo oo oooo oOo O° 
oooo oo Ooo ooofo oo oo oo oo oo ooce oo oo 
AZAR ae b=) BAe am AZ GAS Bz Ze imme Ae FR 


HEHEHE EHH HH HEHEHE HEHEHE HEHEEHEHE HE HEHEHE HEHEHE HEH HF HEHEHE EEE HEHE FH HEHEHE HEEE HEH HERE HEE HEHEHE HEHEHE HE HEHEHE HH FH HHH HH +H ++ 
TNO DHOCNMAMNOP DHNOSCAMAPMNVOPDWDHOSCAMAMNOPDHNOSCNMTNOFDNOCNAMANOPDODHASENMSTMNOEOKHNOSCAMNANOPDHNOCNM PNP DHNOSKCAMANOPDHOETAMANOPDOHOSCPNANMANO™ 
MMMNAMNMOMN Ss STAAATASTAMOMNMNNNMMMNMWMNO WO OOWO OOCOOE EE EER EEE DD DO DDD DDDAHAANAAAAHANNOS OOOO O00 CH} & MMMM EKAANNANANAAANA MMMM MM MMO =F SF St sp a os 
MAMMMAMNMAMMAMMAMMMMNMMAMMAMNMAMMMMMMMNMMNMAMAMMMMNMMMNMYANMMMMMMMMNMMMMMMMMMMMMNMNMstaa709s7S392e7>9799 75399 395953553 S959 2929 S959 S595 s°95 S99 S339 37599759 59 75 
Cee a ed ed eel me el ee ed edd sed el ed ek ed el el ed eek el le el el ee nel el od ol cael ee ceed el ool eek noel el cae el ek de ee de el ce le ee see el el ee el el ed ee el ed eed ie lel oe ed ed ed ok od el dol kl ed ll oe el od od 


fy 
\O 
fu 
Ww 
Fu 
So (an) 
Ry ian) 
7 (a) 
ve) a 
- - (a) (>) bod 
fy fry fr oS Fy 
N N © a] N 
fey Ry Fea © fx 
tO" KO F OO FOFOr OUHNE onr fF COTO oN FB © KFOFTFOr occwoor NO FA wrt OCOONOe Or WY ONNNCO OFr fF OCOwWTtOoe TO FY OC FOTOr wea Oct 
ACO CA Oo DO OCOHUSTO OMWOO COU Oo OMADCO on © OO OMUsTO ornoo Ome wo ODO OUUCO OU © OULOOOC CU oO OMNASSO On © GO ORMUSTO COC OR 
WODONOCOU DD OO ANAEKO NMODNOCOCOT HA MMWCONCOYU DD OO NHETO MMNCCOCSOOCON Kh NMAQHOCOCOF- DD NMENCO OF DW MMWCOWCOU DW O NAEKo —-h WM 
MNOEGCACSFY — FO ONELUDGD BDNMOCOCDODOU — ODNMOCOMOCOrY —-— OD ONHLUD ONMOOCDOOHOKH DN ONNCODOCOY =— ONNOGOCOO OO — BDNMCOCACOY — ODO ONRUG ON ON 
FONATNOO @ UW RMONWOD BUHONSNOD @ UNONTOFOcm OF FF ONSaDOt URIONSONOaMSt OD BURONATMOMD -@ URIONSTO URI © NTAODMUANO N FSF ODMeHIO Nt wO 
OPT CCSK SC KT CPANNNANN ANNMMMMMNMN M MNMNSsstazaAsastsSaT?r SF SF MOMMWM NMMWWowowowowor~r~ Pr COE ODDDODD DOD DANHNNAVNA DO et ceidctdtieietiectetMm Mm mM MmmMmmMMoO OU UU 
mammmAmMmMm Mg MQ MAMAMM AaMmAmMAMAMM A MmAMMmMeMM mM mM MMMM mAMmANMAMMMAwM MM MMMMmMMmMAM Me meme eam mM MAMMmmAMMmMMMNM QM AMMMMmM MM MM 
NANNANNNN N NN ANANNN ANANNNNAN NN ANNNNNANNANN NA ON NNANNN ANRANNANNANNNAN NN NNNANNNNAN ON NNNANAN ANN ON NNNNNNNAN ON ON NNANNN NN ONAN 
COCDTCO0O O2 0 COOCOCO DOOCOTCOOCOD 0 CDOTOCTOCOSCD C0 OO COO0DO DODCCTOCOCODO CO DOCOCOCOO O COODD09OD CO 0 TDPODCOCOCOCOO © CG COOCOCOD CO oO 
COCceoococo © GO CDOOCSO COCOCCOOCOO © DOCDDOCOCO 0 CO CODO0D DODTOODODOCOOSOO CO DOODOCCOOCOD © COOCOO CO © CODDOD0C0OOD C0 CO OOCOCOO CO CoO 
>< ~< 
- 
| aad 
ws 
fue 4 oO io) we) 
oO ~ fa) es CS jm) 
io) << . (on) ee = io) 
j=) . ~ o>) . Ul Lo) 
N = - ng ce = - Sp) i = 
Veo) iT} N \O wo It N sj ~ It 
io) op) x N io) WN << o> So op) 
oO je] ~ oO So ic] | ~ oO fx 
fo) ~ ~ i) >) > = ~ jo) ~ 
= » ~— (oe) = & — N = & 
i ~ UW — tl ~ i] ioe) i] ~ 
Ww) oe) © Ul 1] ioe) © N wn c 
ica) ~ al HH is) ine] aH co) fa ~m 
> io) w oO > io) 14) oO > fom) 
& oO & . » i) . a & a) 
we) oO on) je8) Oo Ol io) li wo oO 
io) “= a => oO ~_— i J Ge (>) — 
oO \ a) io) i) {I jo) oO oO Hl 
i) eH ro) aN oO eH >) . oO al 
io) oO io) i) o>) ao j=) ~ © oO 
OQ . fy So a . fey S oO 
—_ [e<) — © Pact oO ~ oO — ow 
It (G) i i) I C3 © iL (S} 
eH tl a] I H i H tt G 4] 
oO ~ = fu = ol -~ b>) Fy = (eo ! ~ = 
&» ~ & ~ [ow ~ ~ ie] [ae] » ~~ [oar] 
= << « eG < fu << «ce «<< —< cm x <a 
© . Ay ul As oO « Ay I Ay jo) . Au 
& fee) Ay & & foe) ~ Qy » . ioe) & 
io) ~~ ~- 4 on) © ~ - ica) a (=) ~~ tad 
io) «<< i} . It oO —< I * tt © «KG i 
io) ~ 1o) ~- ds) i>) ~ &) - os) jo) é os) 
=z — = N 2) a — = N = =z — a 
i) = 4 < - io) baal ci Co I oS = 4 
i-) tl Pu ~ Au io) tt Au é~ Ay i>) tt Au 
i>) ~ (@) ~ I ~ o - © - It . © - io) » 
oO i) GH oO Pu ie} © © GH oO Ay Oo io) © eH oO 
—D oO on a) 4 ~ —< fe SO © na) 4 ~ < sa) Oo © oe) ic 
ao i) <cs » «<< = &» - [ofa] jo) gf » «a = - ao io) << & “ 
aco N i) aN a + ao Hi ODO = Oo ao oO i) eGN A Oo ao re Pee Oe ma cao st © eEN A wo 
=» O i] aM m6. & O =n BS = ae & +-; Se O © 2M ~ Zam Be aM qee =e io) San an 
xsOxsSON OO SOBRMO MOO BORG IN GBOxMOC NO BO«MONAR OD SOHMNOxMOO We CBOARHAIN MOxMouonn o aOxXxOoON ~~ BOeHMOnxXo 
& weocozwoo ~ UOX¢MO wooo ~ MUONS AOme H esOOCOrm DD WF eOOkhWOO a MOxKO eOOCOr ~ UOAKHAOde & weOOOr ann & OOHhWOO MUOKO sO 
YNDaAcOOoom Ce —THHOOD DA ection —e —Ta > Il COM ct xeODacthoe nO ~“NDAMOOCO Ce THHownachoe “eo wet I] COM trop achoe tO YNDSAZKOOO Con- —RHODODa 
ANCH ST rwnrSM QW OQN MH OO BS YONA AN™SMUCe & “OHO AYO ANC Hr" DAM AN™ FOOT ™N AO ANZ HOUOCe & “OH TNA YT AND BT" Q™AN™THH OOH 
BAABNHANNO BN «6 7 1] Ch aOANHNNQMENCGGH Il CUBHINNABNANNDRNG GA MOENHNNG ON Ge Il BE GONHNN AGN GG || CACBmINNARONHNND MNO GY RONHNNG GN GP || CH LAN 
Oe “HWA One® Oc Been He One® OR ett mH REID THe One Oct He One Oct Rem AHH One® Oe IH A Are One ORR mH ~H ee One OCR nm ~~ 
Fim ae EOE ORE eee eR ee Ua ee ee ee Ce OR eee eB OR OB ec cee eee ee ee Oe tt 
= PS = = BH < = = A A os = = PS = = tal = = A ww < = =a = = BH acl 
O © WO ~< os) wo Aw ba) 1) WO a] © >< >s © Oo vA wv ~ wo oO Ps és] OO Pp s 
an) te eH oF i=) ee St > «ce = He oo Hi ei oH =) KH ri> => KH we eH eke = 
AURUVULUVONAUUNOURUUHVUUULUURUUNRUSZUUOUUUUOUBRUUUUUOHNUUHOUROVUOUVUOHOU UNA U EOD HOUUUUUURUUNRUZUULUUUUUHUUUUUUNHUUNHURUUUUUUNUUHOURUOUUHUU 
KEARAARDAROAGAAR BARAARARAAAAEOATARARADRAARARAARDAARA BAAR ARAAAARAA BOAR ARAARRARAAAARAAREARARARAAARRAARAR ARR KARR ARDAAAARAKRKAAKARAARABAA 
oo em NN MmMmstt mw Ww “m Oc AnOO er NN Mm~O ws 
Ww WOwo ovo WOWWOWO WOO Neve) Ono wrwo woorrE | sd ad aad Sd SPE EE 
oo oo oo oooo oo oo oo oo oooo oo Ooo oo oo 
oo oo oo oooco oo oo oo oo oooe oo oo oo Ooo 
oo oo Ooo Cco°ooe oo oo Coo O&O oooe oo oo oo oo 


Se FEE Hee HH Hh te HEHEHE EEE EH FE HEHEHE HEH EEE EEEE HEHEHE HE HEHEHE HEEEHEHE HE HE HEHEHE HEHEHE FH RHEE HEHEHE HEHEHE HH FEE HH HHH HEH +H ++ 
OT NAMFNCHODNHOTNAM AN OPOKHNOTNM AMO DNHNOSCAM SNOOP DHOTNMANOPOHNOEAM ASME DNOCNAMANOP DHOSCNMANOPDHNOCNAMANOEDHNOKENAMANVOEDNHOCKNMANOPLODHROKNM 
AANAANANANANMMMMMMMOMMA OY St StS TTF SATAAPTMMNMMMNNMNMNMNMN OOO OOOO DOUO OE EEE EEEEE PRP DDODDDDDDODDDNHAANANANAANHOOCOCOCOCOCOOCO CSP CCP FC KENANNNANNANANANANNMMAM 
NNNNANNNNNANNNNANNNNNANNANNNNANNNNANNNNANNANANANNNANNNNNANNANANNANANNNANNANNANNANNNANNANNANNNNNANNAANNNNA NNO MMO MOAMMAMAMMMNMMMMAMMMMAMMMMMMMMMMmMmmMnM 
i FS OOO COCO SC CEE 


fea 
@ 
Fu 
=r 
fy 
jm) So © © 
© fu © Oo 
lm) ~ OQ © 
a \O sg > 
[a) - S Se - = © 
cm) ea) sa) © Fey <3) oO 
jo) N © oO N fo) (a) 
Oo ies) faa jo) Fy Fa oO 
MW ODBDNCCO Of FB wet OCUTOE KH fF GO KFOTrOor OUDSO). nO A DUNNCSO OF FH exc cotror —moOo YW OC KFOronr CoccOonr tO BW OLLNNWOO OF Were OF 
Oo CWOUDOO OU CO OO OFaAance COA wow © OUSTO cCAmMeOoO Om WwW ODMUCOCO CU WO OO COAAACO COA © O&O CHUSCO ONHCO Om wo BDOUSDoCOo CU OW OO O- 
D NENOG OF DD TH NMNACCOONGTOYU HA WO ANLOETO MaENMNOCTOCCOON MANOS OF DD KH NAGOOOWODTOU HD WO NREKO NMMOCONDOCO DB NMNMANOGOO OF HD we WA 
m~™ ONNOCCO OU =F ON ONMOOCADCSrF — DO ODNRVUG DNMODODOOROEF BDANGDOO OCU =F ON ONMCOARDSCrKY — © ONRLGO ONMOODDOCOR fF ONNGOO OU = ON ON 
UO BONAOD WO CO) FO DAUAOCONMs0 © @ UROCOTO ODtUNMONMsORC NtoOOMU NSFT OO De UMONTOPOd O FH ONTO UNONTOPOnm FH ONTOOet ON Ft OD KU 
TF AFMMMWM MWC C WOW YOWOOCOCMERERRE Mm MRM BEDDOH DODDNHAMVNAAAN ete tt MM MW MM MMNVUUUYUVUOUL UO UO AARAAA AAAAAWAAA 6 fame m&e CO COC CO CO 
«Cee aa la ot ce tit et eect ete ee eee ete 6M CUC MC OOM 
N AANNNAD AN NNN ANNNNANANNANN N N NANNAN ANANNANNANNNANANNN NANNNANARN ANN NN NANNANNNNANANA ON N NNANNAN NNNNANNNANN ON ANNNANNN NN ON NN NN 
oD O090000 00 COC CO DPOCCTOOCSCD OC COC GDOCDDOD DODDCOCOCCOO COCO0C0O Ca 0 CGO DBOCCOCOOCOCOCO OF GO DOCOO oOoC0OCOCcCCCOoOOoO Oo 200000 00O co OO Soo 
OD ODOC00D00 CO COC CO DOCDCOCDCOD 0 0 CODCOD DOCODCOCOCOO COOD0D0OD 00 0 OO DOOCOOCOODOD © GO GDOO0SCO cDoOoQ00COCOoOoO © CO0CCOCOdod COCO COC OO CO 























PAGE O7A 


CORP 1976 


375222 


EC= 


8327653 


P/N= 


CHANNFEL/4963 DISK UNIT 


PAGE O7 I7A20 --- 


COPYRIGHT IBM CORP 1976 


8327653 EC=375222 


P/N= 


CHANNEL/4963 DISK UNIT 


I7A20 === 


COPYPIGHT IBM 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


> b< be 
& 
~ ve) 
- = 
Lp) - 
=z aad oO oO 
<< . ~ O m] <n It ~~ oO 
- ~~ ee) — © » Sp) oS & fm) 
- wo oO Y) p] - N oO = 
N © ~ EX iT} N > xt N " 
< © ce) '@) wm Lot) & jam) - op) 
S o >) . ica S -~ oS oS fe 
~ a) O N > ~ wo O >) ~ 
— for) ~ - ~ —~ on) — = . 
i} ~— NW - ~ U © i i ~ 
(@) i EY Oo co © © GH 22) cO 
=) 1) a) ~ & cm) O ea) ag) 
day Q te z= fm) 4s) oO . tb © 
- . ~m ut (>) ~ ~ = » oO 
~ ' = WY oO ~ i N ~ oO 
c oO - fa © io) Hi - ad ao 
=z wy —) > = a+ oO jo) N ~ 
S jo) >) . ul on) & a) at TI 
io) “XN = ~ & oS - = oS & 
© jo) i} ian) oO jo) © " om) oO 
fru oO nN =) & fry S nn a » 
— © Fz = Oo — fo) fq — OG 
tI io) > om) cS} I i ~ it cS} 
& ul ~ oO i} =a) x bad et I 
- [oa ~ Oo — RS & < ~ N . faa) 
«c < << o>) i < ce Ay << N fa — 
tl Qu ba ~-m ei Au It Ld t~ 4 (o) Au 
Ay » oe) oO (o) ~ Au a oO () . S 
ical fon) ~ io) . - fF i) ~ i) oS oe 
» {I << oO = I . Mt = oO o) Nl 
- © ~ = oO a) = wo ~ = i) wo 
N = — VN e = N = ed on = 
< el bat ei i) eel C= I — & a) on 
~ Au WW (o! am) Ay ~ Ay HW oO i>) Au 
rT] . (@) & = & iT] & oO & oO o ® 
[e¥) oO i oO i) oO Au oO =a oO © oO oO 
< = = <<} . xo ge < = » <8 » ao oO cf 
GOom & oOo = ~~ Gea oO = qo wa - GO oa Gm & ~ N =~ on N - go = =a GO am 
GO we wom ~ Oo Kan om ao nN i>) an eo co 4 oN oOo w mN Oo = ao © i) xc Oo 
=n BS ae aes © WwW 2M _—®* = } oad =>) a. =n SS me omM _s &- =M mt ON ae N io) xe oe 
HOW «MHAOde H weOOOe Oo MO-MO weOCOe ~~ YY weooZ2zto a AY eX OO Or ~ MONKMAOdme HOMO edOOOm So- NO-KrO weooOe ~ PY eOOhwom ww Py wes OO 
“hy > I] COM cto aatkoe NO “RHONDazet hoe O- ~“NDBAOOO Oe “WD aoe ballad —~Tu > I] cOM at hy HOOD ae athoe OO “SRHOND SA aohOe Oe “INDZAaOOCO Oe TOD i 
NRO & “COR KR YODA KC AN “RICOH TS =O OA QNO BT "OO OQNO HET mI OA “OOAAN™ 2 HOUOe & —™hOO HST NA KR OAN MHOO HTS HN OMAN FET OO“ ONO HT 
HH BUCBytNN aONHNNDO MNO G3 Il Bu BNHNNDO MN cM ONHNNO MN a GOB NHNN GAMNB 04-9 1] CABMSNN Il BMANHNNORNOG NH ChtONHNNO MN ate AAtOeNHNNOMN ae Go IAOANH 
IIH AH ee Or® Om HT SH ON ORR HHH On ORR ™ He On Od mt mH enn He Orn ORR mR He One Odi HH He One Och," 
Py et er eGetU et bite eet SECS fie ieee ete Oe ee Oe aie ee OR Ree OU et yee beeen ee Ree bee eee ee Ate et See EOE et et 
A A ~ = = BH < =z = PM = =a Os = =a A wv Gi b< = = H tal = = NX = m= OS 
a ba] id) oO eM >< wo WO © WPS 1d) Oo Aw >< Ps ds) OO Ps =< wo CBS © CO Ps 
> i=) eH on A | = ke H © an) WH PS KW re ge KH j=) Hi HH > lam! HH © bet eS © 
USVUULVOVULVUBOULVOULUROUONOUROUUHUULODUHOUUNOHOOUUDLOUUNUUHURUUUUYU UHNUORUSUOQOOULOUBRUUHUUULDUOHOOUHROURUUDUHOUOUUUDHOUUAOHUULUODUHUDHOUHUUYU 
AR ORARARARARAARARAKZOAARARARQRARRBADRARMRARARAAAADARAARMRQRAAARARQAROARMOARARAAQAOQRAARRADAARAARTAARREARAARARARAARRAAROARARARARAMaAAEAaARAAA 
mya ww oo ee cow nO oore AN HM a+r mW O10 od 
oooo oo oOo Ooo oOo oo Sol aaah ed oe rr oe c- Te Sh oad to a 
cece -<— eK Ke -o ~~ ted ak ead band me me or Ke = —— 
Cooo oo oo oO oo oem ovu0oeom oo oo oD oo oo oO 
oooo oo oo oOo oo oOo oooo oc Ooo oo oo oo oo 
Mae <9] Zim ae Zim a ae An) mam RR Zima Raa ime ana 


Ht EEE EH EEE EEE HEHE HH RE FEE EEEHHE HEHEHE HEHEHE HHHEHE HE HEHEHE HE Fo HERE FH HEHEHE EEE HE FH HEHEHE EEEE HEHEHE HEHEHE HEH HEHE HH +44 
AMATMNOP DHNOSTNAMANOM DHNOTPNMHANOMDHOEAMANOPDODHDOCAMAL, OR OKHDOENMANOPODNOTNMSNOMOHDOCNAMANOPODNOTAMANOMDHOKAMANCHEDOHNOSTNMANOFOHOEPAMAWM 
WOWUWUWUOUDODOUE EEE REE EE DO DDDDDDDDAHAHAAAAAANDO OOOO OOOO REM NNNNNNNNAANA MMMM MMMM AO) = St St SP SS SSSA MIN NNN NN HO WUO WOW OO REE EE 
UE AE EE EY EE EEO) 9 OO EE LUO LED UY) LIL) WOO 09 09 10.019 0.000.010 10.1) 10110110119 10.110 10 10. 10 110119 10.10 10119119 19 10. 1 LOLOL WI LOLOL WO LOL) LOW W110 1 01010100 10910 LOW 1 LOW. LOLOL O10 100 1 TOL 10 100 
Seth reed eed dh ed coed nee eed noe ed oe el ed el sae eed se ae me see ne el el ed ed ee ra se eh me re se coed eel wee a se pe el el see see a el ol pe aed ed oe pee ee ee ed el eee re ne ee se ee ee ee eel oe a ed sae ae ee eae ee ee ee er se ee ne eh oe ae oe ee re el ee ee ee el cee el ee eee se ee ed ed eh ee a 


fy 
oO 
f, 
wh 
ft4 
So Lo) 
fu oO 
- © 
ive) =z 
- jo) io) - - © 
Fy Fy So Fy Fu So 
N So - N © o>] 
Fa Fy a) fr4 fy co) 
YQ OC Foren DOD: nO FB Fat CONC” Om &F DUNGCSO O- fF COroe —keO fF O KOT Or Kc CNMNNMOS ro ff Fe OSNo~n Oo~r HY CONNOCOS OTF F&F Ost 
Oo © OCfRUsTOoO ommhicoo or YW OC SCOUCdCO OU WO ORUCOD OU WHO OhACSO CA © CO OCOfMUtTO CO Orhooe Oh Ow OOD OWOVUSCSO OU OO DBOUGDOO OCU WO OMA 
MN O NAIEKO NUNGCGOCOCOCOCOD TR NAKCOCOCOK- DH NYUNNOO OF DH NYUWCOWDTOYU DW WO NAAEKTO Kh NMANDONOCO DD Fh NAQKHOONCOTF DD NARNDO OF OD MAW 
= CF ONHUD DNMDODCORhOMr ON DNNCODOCOU Ff ONNGCOD OCU —-— BDNMOOACTOCKY @— ODO ONHUVO ON ONMOOCDOOR - ON OCONNCOCODWOCOY F— ONNCOOD OU -—- ONM 
OO @ UROCOTO DAURIONMSORO Net OOMUMOrNS?T WO DMUBION WO ee URIONSTONOm UO FW ONaeDOe OFF ONTODAMOHM N FTO ODAtUMONMs0 © eOUHONST CO F&F ONS 
DO DOD DONND DNHNNdedetaetM MM MMMMMOOVUYO YW UYNUUAA AL A AARARAAAA & F&F Bhim BR COODOOCCOCOO TCR PET OANNNN N ANNMMM MM MS sos 
O UO YUVYUYOU VLUVUUYNUUUULUUU OY LUULUOUUULUU UO UNULULU OU UU ULDULUUUUYUL UO LU VULULUYU UL ANRAAAAARRARA A AA ARAAAARAAR A AABAARA AAR A AARA 
NN ANNAN AANNNANNNANNANNAN NA NANANNNNNANN A NNNANNN NN ON NNNNANNNANN ON ON NNNNN NN ANNNNANNNANN ON NN NANNNANNNANN ON NNNANNNOUONN ON NNN 
oD 0 DOODO0OD CODTOCOCOCOCOCOSCO CO POCOCCOCOCO co CCOCCSOO 0cO 8 COCOOCCOCOCCCOD © OC S2OeCCO SCC COOCCOCOCOOoC © CO COOCOCSCCCOCO Oo COCOoOOOoO CoCo Cc COCO 
So 0 COCOD COTOOCOOCOSCDO CO DOCDDTOODOCCO 0 DOOCCTOO CO CO TCOOCDOCCODDO OC FD OOODO0O SCO DOGDCTOOCOOCO 0 OO ScOOD90D00000 0 GDO0000 oc0O 0 COO 
al < bad 
N OV or 
jo) ~~ io) -_ - 
jo] Cae) » om © Co (am) 
© ~ ae oe] ~ >) & on) 
a - Ve) wo © = - ~ z= 
tt N © ~~ jo) tl N ~ lt 
Sp) =) © © - Zp) Lo) N WY 
is ~ © © S fa ~ co ic] 
> == © UO >) > — 7) D> 
~ —_ io") — = — Oo I 
= I — il I ~ Ul © ~ 
joe) Oo eH nn ioe) oO Qa co 
™m fH O is) nm e = aa] 
S ida] Qo ~ io) ia) It S 
(a) » & - we i) . e So 
© ~ i) co] ~ © ~ oO i) 
1e) Oo oO - Ov © om) » a 
are = + © Ne} =e => O — 
ul Oo io) © ~ Ul io) o WW 
a om] “\ = © & o i) Sa) 
oO io) © tl © Oo o>) N Ol 
. fea © 4p) oO » Prey H & 
«x — © FQ — aa} — = x 
i) I © a Il Ce u ea) cS] 
I al uN ~ ia) I H me tl 
= Py ba ~ -~ OQ = fe Qy = 
eg . % ~ wn « [aa] & . [a 
<< — «x cot O Fs eG « =r x 
Au lI Ay . a8) Oo A. T o Ay 
- Ay ~ (oe) o>) Ss . O, " re 
- FQ Lop) ~ o oS ~ FQ ids) ~ 
VW » ul «G oO a) MN . = It 
oO - ja) ~ ee i) O ~ eI ida) 
= N = — It a Zz N Au = 
4] <a 4 — Ge oO Coe} C+ . 4 
Ay ™~ Ay I Oo © Quy ~ oO Au 
~ i » oO . ior) o . iT fx . 
oO Ay oO et Qo © © Ol Ay » oO 
cf «< = & - af w ao (=) Cn ) +4 = ep) aie 
aO NN co rl aD LY Oo «Kan Oo = ao © oO aU OV SO pl aN oO ww aU a 
= = OV aM Za me qe OF art EM naw ft OO ae © © = = OV aM GS me AM me © = &§ © 
O ———e » mos O0O =e KOARWIN GOxKMoOoO~ NN OHMS KHON. COMMON OD OO PMO een BOON MIAN MOHMOKOO ~~ ~” UO MOO ~m 
CONE —O GB we<OOoOr ~ BOnMAOdgme H wooOk OO WMO-MO eOOOe Py GOO hWOO Ay e4OO Or ~~ MOM HORme= HO;KMO S<COONOD SU DW BKMOO Oe ~ 


KHOO Se SODEeHOe Fe SES CORR MODERMMOe NO SEHONDEERO» Oe SNDEROOO Oe SWODEEHOe Ke SEE | ORM xBHOODZENOO OF SODEHOe. fe 
OWN AO ANS HST SO OAN TS UO® © SOT SPOR OAN SHOO HST ORM RANCH ST OAS ANOH SRS —DATHAN 
HANNO GANGA SENH ANU RNG | GUSGHINNSENH NYO BNO EH II CHA ENHAIND HN Bt CN HANO GNA GIS ONE ANU BNC Er II CUSHMAN Il CHACNHINORANE A CNHANUENGE 


“Anime Orle Oc ™H™HHe One Oc Ht HAD Hee One Ont Bet = Ornd= Oct ™ HHH One® Oh HHA One® ORC tm ee He One® Oc HH He One O 
Ketan es BeaetOH Eixtetatetet os Set Riel betel chit SEU felt me Bice bd ete Beet ett od eet ee et) ee fy em ec ee ee et ec ee 
= =a OS = = A wv os = = H >< = mm OS a] = = = A wl eH ~< = aS = a) 
ia) Oo wo Oo et 4 ~< w OO M Fa © WO © Oo xs wo Oo HA 4 Ha] s a) O Ps ida) wo 
te eH D> tH H > > kr HH = HK HW > ef Me © eH en > << dH > te Me © ei te 
VYVUUVLHAVUUNRUHOUUVUUUUDAUDAUSOULUUDUUHOUUUUOUH UU URUUHUDUUUUHUDHRUHOUUUUUOHUUHURDUUULUNRUUHOSOUULOUULURUURUUU OUUDUHUDUHOUHOURLUUUUHUOH 
AQRBRA COAG ARADAARAARORRMOARORAARRAAROAAARDAARTAARARAARARARAARARAARMARA OANA AR RARMARARAARAAgKAARTARARAARAAARAAR|AANRARAAMAAAARAnNRAAAAAEAAE 

oo PmNN mn stat WW Ww ed Se Cao) oo ee NN 

nO DAHA OVO) HAN ONO no loate)) ANAC oo oo oo 

oo oooo oo Coo OO oo oo ooo°o cer ee -e 

oo oqooe oo oo oo oo oO oooo oo oo oOo 

oo oooo oe oo oo oo oo ooooe oo eo oo 

az mw) aa Ze Mam a} Zz ZABAZ Ze Ae a) 


HEHEHE EHE HE PEE HEHE HEHEHE HHH Ft HEHEHE HEHEHE HEHEHE HEH HH KEE EEREEEE HEH EEE EEE HE HEE EHRHEE EEE HEH HF HEHEHE HH HEHEHE HEHEHE HSH HEHEHE HEHEHE 
DADTHAMAN OP DHADHAM FMW DHOCAMAMNOPDHOCTAMTNWM DHOTNAM SL OF DHNOTAM ANOS DHDOTNMANOPDNHNOSNMANORDHAOTAMAMNOFDHNOSTNMANOFDHnNOKAMSNOP OHNO 
TIMNMMMMNMN NNN NWOWWUO OOWOODOE EE EEE EEEE DODDDDDDDDMNAAAAANAAANNSSO 000 9000 CFSE MEME NANANANANAANNAAMMMMAMMMM MM = tt Sat TTT ST NNN NN O10 
tasostssas ss sass SS aS SPS SSA SSS SSAA SASSI I SASS AT AS SS ATS ASAT TAS TOWIMNI NNN NN NNN NINN NM NWN NNN NNN NM MN NIN WWD MIN WA WA LN A AU ED EA LE EE EL EL LA LALA LALA LE 
Sek soe noel eed woah eed eel ed eed hk nel ed ed me ed we oh ed eee ae cl dso ed ae ek el es ed od deed a oe cl eh ee ae ee se eda eel el ee ek eae el od ed ede ee ee ed dl se ae el ee ae ed led ek ed da se eae sae nae ee leek ld ed od ed 


Fy 
>) 
Pu 
zs 
fy 
i) oO 
fy (>) 
- fo) 
\O fn 9 
fag) -~ jo) (om) - ~- 
U Pry Puy © fy U 
~ N i) o N x 
Fey fry Pra © fa Fes 
Don~r tO ww OCRAOER -—— fF OG &Oronr oMmnmo~” HO WH wrwet OCONowr Or fF GDONNWO Of FY OCsFTtoOe eo fF CO FOFTOr KF DDDONDO =s-e0 &F OCUTtOCN -— 
BOOoOwOo OM wo ORADO OU © OO OMtUSTO Orhoo Om wo ©20O OCU0S OU wo DoOVUST0CO OU wo BMACSO OU © COC ORMUTO OO ONDMOSCO OF WO OBDASCSO Ow 
MWOoomMm ON DM MMWCOrFCOU BD OO NETO MNUMOCOCOCODCOCON Fh NURCOCOCOOr Dn MNURNOCO Of9 DBD MUNWNSGONGTOYU DA WO NEM KO Kh NUMCOA ON DA NUWSCOTOOU 
MOOD Of} §— ONMOOUSCOR — CO ONHUGD BDNMOCODCOMOKY CON ONNOOCMOOYU = DANDOCO OCU &— BAMOOVOCSOF =— FD ODNHUD ON ONMOCOCO OF = DNMOOVUCOM 
aOMO NST © BURIONANOD ce YU AONWD BURIONANCORKN FO DstUHONMs0 © BAOURONS et FH ONTOODAEMUONM OC NN FODOUM ON tODRUR ON -/O) DHUMONMs+0 
UVUUR AAR A AARGCAAAAWA © HMR BROOD OOOO C RK RR PRT RANNAN GQ AQNNMMNM MM MM AaststststtostseTt MH WM MNMMMNM WwW woOwWmwuowunwn Br ~~ EEnm~woDnmnmwo 
canmmm mm mM MAME mAMMM Mm MQ MMAMMM AMMVUOVUUUULOHU UYU UVUVVUYVOUOO YU YUUULUVUDOU OVD YY VUQULUVNOODOVN VL VO YVVVVHO VO VOVOVOULO OV VO VDULUUDU0U0 
NQANN ANN NN ANNNANNNNN NN ANNAN AQNANANNNANNA NN NANNAANANAN ON NNNNNANN NN ON NNNNNNNNN ON ON NNANN NN NNNNNN NN ON NANNNANANASN 
COO0GO CO 0 DOCDOTOCOSCCOO © OO OSOCOCOO COCOCCOCOSCOO CO COCDCOCOCOCO0O 02 COOCOTCO CO Go COOCOCOCOSCOO oC OG 20000 COO OOCOD00So 8o80O ODO SGOoC0°c°o°ooo 
COCO CD 0 DOCDTODCODODD 0 0 ODODOOD DDOCOOCDODODOCOOD CO DODDCOCO0DD © CDOOCD0OD CFO OC ODOOCOCOCOCOS 0 GS C0000 CO G20O0C0SOO oOo S&F GDO000000°O 


PAGE O8A 
COPYRIGHT IBM CORP 1976 


375222 


EC 


P/N=8327653 


STMT SOURCE STATEMENT 


CHANNEL/4963 DISK UNIT 


OBJECT TEXT 


LEA2ZO. == 
LOCTR 


PAGE 08 


COPYRIGHT IBM CORP 1976 


EC=375222 


8327653 


P/N 


STMT SOURCE STATEMENT 


CHANNEL/4963 DISK UNIT 


OBJECT TEXT 


I7A20 --- 
LOCTR 


HHERHEKEE %* & 
HHH HHE * & 
2 * * & * & 
; + % % 4 + % 
wy = % % * % %* & 
~ ~~ = -~_ % * + * & 
- ~ ~ ~ % % * % +» & 
©S tof jaw) << * % *%& + & 
io) » ~ oS » * * % % 
a) = Ve) a tae %* & % & % & 
Ul N [o) & tl N % & * & % # 
WN < jo) ~ YQ < * % + & % 
sa ~ So = fq ood * % % & ** 
> = i?>) S So ~ — * % %& + & 
& = ~m oO wy & —_ % * & % 
~ It = = Oo ~ It * *& % & % % 
ioe] oO jam) i Oo ioe) oO * % % % * % 
~m a] om) = oO ne] & % % * * % % 
S&S &) = ~ oO —, Se ids) ~ + % + % % 
So & ~- u - . lk wm) - = * & % + 
© ~ ine) WN =a fa & © -~ P= % & + & * 
Oo (on) ce ic) © Fe Oo oO © © * * * 
— = =z > a) - ~ — =z © * * * %& % & 
I © i) » © in 9 UO it io) © + & * %& * & 
H i] =) ~ O “ - GH -) O * % % % * % 
oO i) Fu Ve) = oO om) oO oO ~ * % % * * % 
. fe. boas © I oS N ~ freq iI * % * % & 
“SG = Ul a = © it < st =a * * % % & 
CS) ul e © U oS = Ce tt QO *% ‘FP Ke % & 
ul H Ra io) . Ni a I e . ee wl ee * 
[ea] - oS ~— ~~ [2] ~ Ay a » ~ % & <— & % *¥ 
4 et N il «a < «a » << «<< —< %%* FE £* * % 
As il «<G & « Qu . =z Au 1} & % % * % & 
w Qu é~ oO oO ~ @ 1 . oY) oS ee FE &H % % 
- 4 rT ~ a (oa) é~ ids) o 4 f= * = +t % & 
T ~ fu z, « i G = u _* 4 *%* Fi * & 
4) Lan << i.e) ~ wo ~ 4 du) - ~ *%* OO ** + & 
= N = . bona = — Au = N — %* Oo € & % 
ro << . So = ro] = & | < — * * * + 
Ay é~ —~ io) Ul Au Ul oO Pu é~ tt *% ma € & * 
& ul (I im 9 (o) » (oe) fx - rT] Oo ee GHEE *%* 
oO Au QA, © Hi ol =a « oO Au & *t+ FH #*¥©O % 
~ ~ — ea fm) Pen ds) 4 a fa pen? ~ < a) * = *#O %* & 
<< « «a = ~ oO cf » o cf fry P- anS << = » +t WF #*#O % & 
[°-) [-- . J oOo ex ad om Oo =~ e&, Gem ro [ot Com - ~ %* & *e%xO % & 
cu wW aco re a] Heo OF oO fC -ofe)) oO &- Bi «iN rT wh aU st lO dD ~~ KF % % Il —_ tt 
CG el om, MOG nWOr BSHARMNO Mtr = GO DO nl On Ft GOaennar— GO ee mn. BO mM wD BODE £ € #* HE e-Ese & 
kN ws Cy w&OO O- ~~ WON MAO dmt=’ Hebets BZ esOOosastoO Aacooo wooOre OD ORO eOOONm @UO f& eOO Or ~ AOns«MAOme HOOCOD *«* *#Xx Ne ODt 
COON Cf YODA AAOe we Mh || COM eX |TOOCMMHODARMOCO Of “HHOWODSZEHOe NO “HWHOODSzRHOm ter SODSz=AHNOe wre SP Il COM axe HOO £ + COAX 
OD Ot QIN O BT OD OAN ZOO” © hHUCe &§ “OR SR "DO Q~ALAN "MOCO "OD AW] AN “HCO RT QHD ANC HST mer OQ OAN™2ZEUOr ew eKmnon”” ££ * t+ #te Owe + 
NNO AN SEMA ONHNNURN Gp) | OMB INNABmAINNEONENNO BN ct G4 Il BChuMOANHNNOGNOS G4 Il Cat GNHNNS BONN GABON HNNOUGNG GH I CUBHINN IlChiN #* eX NNANH & 
HMHe One On RSH Oe Od tS OS SH He One Om et SHH OH Og rt SHH Oe ORR SH SHH One OR SHH OH + % UA 
= = = =a A wv (@) Cas) = = Py test a = be tas) =) = PS = 2 A wv Ay * *¥x A % 
1] O mx a) Oo Ae H ~ Oo oOo oO ~< és] O mx ~ © O x os) Oo A A © * * % % As % + 
Lan) HH Dp Ke > « oO > ei mee& => KH os oe | pom) ket eM © eI HH > <« eH D* * *# x H * tt 
UVUURUVAUHUVUVUOUHNOUUAUZSVOUVOOUULUYUUUVUDUUBOUULUULH OU OUNUVOBUDUUDUNHUUNRUBUUHULVUUUOUNRDUOHAOUBUULDUUOUNUONUSVUOOUODUONOUYVY OK *# ZOOOe + 
RES NCH NEN ER Fey i SN ae eerie pon ca etree er nA NE CNS rR are ea NEG NEI ET a eae ieee eater lee eae em eer veneer %% AQAA 
* % % % 
* * * % % 3 
% % % 4 % + 
ian las) rsMWM Wr. | aad ad om nO oo Fe NN oolsel—a—~ 4s ww * * * % % 4 
mm MMAMMN mm setae) AM MM arar CU ST wa rasa ara Ht * % % 3¢ 
cm cree bed ed c-- rr Te cr fe oh eceecrce -e Aux + % + % + 
oo Oooo oo oo oo oo oo oo oo COoooe oo Hit % % tt 
oOo ooooe oo oo oo oo oo oo oo oooo oOo Bree HEKE KH % 
mm at “Eo ~) aa mae 22 Ba 2a 2s a path=) ae FIX HKRHHK HH % 
++oe+ +e e+ + +++ 4+4+4+44+4+4++ 4+ ++++ 4+ +++ + + ++ ee e+e ++ + + ++ ++ te eee ee teet ++ +++ + 4+4¢4+4+4+4+ 4+ +++ +4444 4+ 4 4+ + ++++ + + + ++ 


CEO EE EEE OD DODDDDHODDDDDDDDD DD DODD OD DDD DODODDDDDDODODDODDDODDDDDO DDD DODD DDDDDDH DODO DDDODDODHDDDDODDDDHDDDDDDDDDDODDDODDDODDDODOAAAAA 
tel adh se med sa el eel seek eed med cael ee see se ned ae el seh oe el ee eh oe eee el ee lee ee el ee el ee ed se el ld oe ee ee ol oe ee oe ee ol el keel eel a el ol eo el a cl le ce eel nal a ae nr ke eh sl a ll ee ol el oe 


U 
ie) 
U 
~- 
Fa 
=z 
fra 
~- 
Ne} 
= o o oO ae) - 
fu Fu io) ca] WU Fey 
N N i g a] ~- N 
Fes Feu o>) fu Fea fey 
NNO OF FM OOUF0" emer FO MOT Onr Ctr Ooo OCOF0St0 OFf- A NH CeiDoer HO FM Ft OCOFIDONH tO fH ONTOnr er Ff CO FOrOonr NRO Como 
CON COU WO O-Noo OU OO © OMUSTO OMUAO SCOAFAMAGCOCO OU WO OCF DOhHoo CO O OO ONHMOCORm OF WO ONHnASO COU Oo CO OCOMDUSTOCO OFO Fo since of >) 
NCO OF OD MMWOCOrTCODL DD YO NEE TO NEENO MORIONOCO OF DD wR NANOCCCCCOCON gi NAMNOCOT™ ON DW MMWCOTOOYU A wo ARKO Fhe baad al >) 
COO COU KF ONMOOUSCOF — FD ONHUG ONHUD ONMODD CU — ON DNMODOCOOOROt ON ONMOOF OCF = ONMOOVUCOF = CO ONHUG ONO UNG 
ONO NSF wo DMGUAONM+t0 © a UROAMO0O DMVLUON FOORUA NAF CO OMe VUMONSTOPOKCMse OD AUNONT OD YY AONATOONEO BM © NAOKO WONS hs Toe) 
Bee OD CO COCCCSCTR CM KTP SENNN NNNAMM MMOMMMM sar Ss FSF SFAMMMNMMMNMMOO WOO OWOOKPSE FR KY PODDDDODDD DD HD AADHAADH Nei Sel cl 
AA AR FA ARRAY PAA Ree Ree en eR Ree Re eee ee Ree) ee eee eee ca Fcat cal 
NAN AN NN NANANANNNANNANAN OA ON NNANNN NANNN NNNNNN NN ON NN NNNNNNANNNNNN NN NANNNNN NN ON NNNNNNNNN ON ON NNANNSN NANA NNN 
COOo0 C0 08 COoOocoocococoeoo coc G2 OCOCOCcOOoO F0CO0 TPOCCOCO 00 C2 CO DTDOCCOCCCOSCSO CO DTDOOCSTOO CO 0 cO0D0cOOoc0O0OOoCSD co OG ecoO00o0o coOoo ooo 
ooo oO 0 TO9CD0CCOOCOO0O © O&O SCOOCOO COCCOO COO0OCOO 0C0O © CO DOOCOODGTOOCOCCD CO DTOCTOOD CO DO TOOCTOCOCOCOO COC 9D SOCOoOo e0O0o ooo 
ce > 
= 
~~ N Pes > Nn 
~ — — N ~ 
<x oO —<_ om) = ~ 
. ° = ° < 
= = pay = = : 
3 tI N co) x ioe) N 
bags 2] > — T a ~ © 
ar =x . —_ > * = So 
tl oO a i" ¥ ~ — = 
© S cO ro) = ~ TT TT 
a) ~ 2 ~ m a ca We! 
. I O° . a © oO > m 
a . — = = a Oo! o we S 
>) o) il oO © nee + oO > 
= = 4 S Mt i) tl ) —) | 
° ‘s) oO = Me = G = ° a 
peas I << — eS wv = Fy © i) 
SS ee i Me = Po iS u i x 
. Au faa as Eee = fey ol ™ 
—< te «a <x = ee) aay -< = es 
MI cg Ay ff = wn < < fy Pe = 
Ay r . ni = z Au H" fs) ta 
Fy je) - 3 o 4 = Ay . ad 
. a | mt = ne ca o = = 
7 a 05 : i iS i . ° > 
N Ay = Be pe a S) w S << 
«t . 4 >. oO {I Zz N we an) = 
Ss ol Qu ~ fey GH I < i) ~— < 
ll Ps . P oO = As ° hea 
Ay . fo Ou a fee » | oO = Oo vo) 
— C9) io) fx} oO 
<< = j=) of =< = = eae ~~ ~ zs = = Ss = 
Gam » ~~ =z ~~ bad cf 
aO 3 aN ow =e = Sey a o- Gt oe a] ae = S ~ = eh > 
ROanGeROr ZOnANN ar. C= moO ad [a » ™ ae ™ se AN SM BG oe a ace Oo = oO o 
a MOAHHIN MOHMOMOGH. © common, MOAHGEN BOROn We eo Oe ae MOmMHDO Zor. GO MAIN we 
a BOOK AOm= HORS SKOOCOND 0 ff axOOOr LL MOdkdOodm= H OO mAO NH EO >SOO KORHHIN BOKON~WO KOHMOKMON 


Woes te 
NEOs CORIO SDZSHOO Se ODE EMOe Ce Vb tonakoabD=dOom Se SNpaaoo- Of BSSSSSSL x “E> OMannnEadoe Se MEMS soo 


DAH AN MZ HUOe © OOH QO RNO Hem eee ae, rn atSHAN= OH Eo — — 
NNARNe ER Bry SOANMSHUC© © MOR MT SO O™ ANOS sa aa 
Hire Oe Om HOR IR HS One Ome CaS Be iad SESE IRENE NORE RAR EAEANG Ba BHR ONAN MENS EN I Chima NARS AEA S Bae oy oe een 
ic 4 GES art cd > - - - = |) Nae, od = Se 
BCU Chet etetetetet UR Bite ECU Bitte OU eat ed miele Oe Hee aMEOS PaaS eOS mana lara daa Or, Qt TAS 
= = A 
ZF Ov rs =m x Zz mA A > Zz wm x Zz mB bd z Zan be a = 
ULUSUURUZUOULLUURUUR Es EN. Re ee is ce ee Sr, eS a Ae SEE p< Oo OM bd 
BUVEUULUULUHUUHUBULUUULUHUUM WOE es aoe = 
QVO4AOOHLS VZ0V0000LVUEULUULULRUUHUET ULdUmOUn 
PRA AAA ARARR AR AR AAR AA GAR AAR AAA AACARARAR ARAN ARARAR TAA GAR AAR AAA TAA RABE RESO ae Se BASE BER ELEY YOY BOAO AURULEUUL 
oOann oo «CO NN 
moss Tatts) wo 
a a NN SINIX NN NN nN AINA mm aa 
O0CO Co oO oO Sooo ae = -o cere -— a 
eooo Co oo oo soos SS me oo O000 oO ae 
Ae ie Zz meee — ze, Ze. Bane == Zz as 


oO 
i) 
oO 
. : = 
: g 5 2 3 
; : : : S 
or TO YO KOTrOor KK CDDONSO +0 fF OUstO = 
pa See e wseos eS ~ TT BH OS TOTOrF OCOFKNNO OF Ff OUNNeE = = 
SOACGF § O ONHUG-ON oAMeeS See Samos OoOOoU D OO ARE KO NEIRNOCO Of on NAMNOACOnR on NAWSCSOFOOU DM OO NEKO ma aq So oe ee Re 
ODOEMOM © N +tODURI ON STODROR ON 
© DtOHONMs0 © < URIOS 
aoa “iy An inIOInIA, sc OO OMURON +0 © ceURIONSTMNWO « 
RaRAGS & & SAGAR RA RAaSSS Be A Rancansan & 8 SR2R% QRRPAR Ae 2 Raaeeanen  BBOCSOLSS YS ARARS RARNSS BAL RE LES 
N N YN ANANAN AN ANNNAN AN WA ANAQNAANNAN NAGAN a qaaananen & & a9ase aaana 
Sesooe oo Seoe S NN ANNAN ANANNN AN Ww NNNNANNNAN NON AAI al cae 
© 














Shere 


EIA2Z0 Se CHANNEL/4963 DISK UNIT P/N=8327653 EC=375222 PAGE 09 I7A20 --- CHANNEL/4963 DISK UNIT P/N=8327653 EC=375222 PAGE O9A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1904 *x eK OO2FAE 0000 20214#CST12 DC A (*-* : CS STATUS WD 11, DIAG BYTES 1, 2 
sone MESSAGE TABLE rie OO2FRO 0000 cose DC A (*-* CS STATUS WD 12, AND 3 + WRAP BYTE 
+ 
ROOM ME TS PSL St PPS SS TS TS TSS SS STS SSS LES SE SSS SS SSS SL SS ES SSS SSL SSCS SSS SSS CSS SS es OO2FB2 0000 2024+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 
1908 Ke He 2 oe oe ae 2 ae ie he ae a a afc ae ae afc 2 2K 2 Re a a a ea ak 2K a i aK ac a i oi a RC i 2 ae Xo he 2c ic ae ake 2 aK oe 2k ae fc a ofc oe ak ok ak ofc 2k ak ok ak OO2FBY4 00000000 20 25+$DATA DC 2A 3} OPTIONAL DATA 
OO2EAA 1909 FO0O046 EQU * OO02FB8 0021 2026+$INTL DC X"O02T! INTERRUPT LEVEL REQUESTED 
QO2EAA 0001 1910 DC Seite, OO2FBA 0000 20274+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI 
OO2ZEAC 0010 1911 DC A (0016) QOO2FBC 00 2028+$8DVID DC x*OO! DEVICE ID 
OOZEAE D5D640C6C9D3C540C 1912 DC CLOO1T6'NO FILE ATTACHED! QOO2FBE 19D0 2029+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
ane 0001 Leen FO0036 nee rio 0001) OO2FCO 0000 Ae DC A (*-*) IBIS CYLINDER ADDRESS 
O2EBE + 
OO2ECO 0024 1915 DC 4 (0036 2032+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
QOO2ZEC2 DSD64O0C9E2Z4O0C9D5SE 1916 DC CLO036'NO IS INVALID PROCEED TO NEXT STEP. ! 2033+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
QOO2EE6 1917 FOOO040 EQU * re anse ve STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
QO2ZEE6 0001 1918 DC AL + 
OO2ZEE8 0020 1919 DC A (0032) , OO2FC2 4020 2F78 TA02 2036+T7A02 MVWI xX*7AO02', $TUID SET UP TEST UNIT ID 
noel GE C5E7C5C3F4E3C540D Lee 700032 ee CL0032 EXECUTE MAP 7A20 IN MANUAL MODE ! 002FC8 5700 anaar ae Any ov RETURN TO MDI SUPVR 
003704 ee 4953 ie A (0038) > ae nn pe re Sr Ge re ee ape nO ee eee ee Gm, en ee 
OO2FOE CT7D640E3D640D7C1D teoe r00483 rot C0038" co TO PARITY FAILURE MAP 7A78 ENTRY A.! oans : EQUATED NAMES FOR SUPPORTED SVC'S : 
O05F 34 0001 1926 be AL2 (0001) 2044 kok I IO IO IOI EOI OI OK IOI i a kk ki geil ake ak ak ak ak ak ok 
002F36 0016 1927 DC A (0022) 000000 2045 OUT EQU 0 OUT SVC 
OOrie ee aeoe eoOuns’ “sou ac ee eee 900002 5047 IDLE FOU 2 IDLE SVC” 
OO2F4UE 0001 1930 DC eco 000003 2048 IDLE5 EQU 3 TDLE SVC - INDEPENDENT OF CPU TYPE 
002F50 0020 1931 DC A (0032) 000004 2049 CHNGE EQU 4 CHANGE LEVEL SVC 
OO2F52 Cé6C9D3C54O0E3C5E2E eee wine So CLOO32'FILE TESTS OK EXCEPT FOR WRITE. ! 900005 eee EGUCK a 5 ALLOW RETURN ON PROGRAM CHECK SVC 
O0O02F72 0000 1935+OPTN1 DC X'00008 PROGRAM OPTION COCNTROL WORD 1 000007 2052 TERM EOQU 7 TERMINATE SVC 
1936+* 000008 2053 RESET EQU 8 RESET DEVICE SVC 
OO2F74 0000 1937+OPTN2 DC Xx'o000!8 PROGPAM OPTION CONTROL WORD 2 000009 2054 RID EQU 9 READ ID SVC 
1938+* BIT HEX OOOOOA 2055 START EQU 10 START CYCLE STEAL SVC 
000010 1939+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 00000B 2056 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
000011 1940+B49 EQU 17 1 4 * 00000C 2057 PREP EQU 12 PREPARE DEVICE SVC 
000012 1941+B50 EQU 18 2 2 * THESE BITS ARE USED WITH THE 00000D 2058 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
000013 1942+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO OO000E 2059 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
000014 1943+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER OOOOOF 2060 RSTAT EQU 15 READ STATUS SVC 
000015 1944+B53 EQU 21 Ss) 4 * 000010 2061 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000016 1945+B54 EQU 22 6 2 * 000011 2062 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000017 1946+B55 EQU 23 7 1 * 000012 2063 CTRL EQU 18 CONTROL SVC 
000018 1947+B56 EQU 24 8 8 * 000013 2064 RICB EQU 19 RELEASE INTEROUPT CONTROL BLOCK SVC 
000019 1948+B57 EQU 25 9 4 * 000014 2065 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
00001A 1949+B58 EQU 26 10 2 * 000015 2066 HIO EQU 21 HALT ALL I/O 
00001B 1950+B59 EQU 27 11 1 * 000016 2067 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
00001C 1951+B60 EQU 28 12 8 * 000017 2068 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
00001D 1952+B61 EQU 29 13 4 * 000018 2069 HALT EQU 24 HALT SVC 
OOO0TE 1953+B62 EQU 30 14 2 * 000019 2070 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
OO0001F 1954+B63 EQU 31 15 1 * OOOO1A 2071 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
O0001E 1955+CH EQU 30 14 2 CHARACTER SUPPLIED 00001B 2072 ATOH EQU 27 ASCII TO HEX SVC TRING 
00001F 1956+CMP EQU 31 15 1 COMPARE OPERATION 00001C 2073 HTOA EQU 28 HEX TO ASCII SVC (STRING 
0O0O2F76 0000 1958+OPTN3 DC X'0000* PROGRAM OPTION CONTROL WORD 3 00001D 2074 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
1959+* OOOOTE 2075 ATOE EQU 30 ASCIY TO EBCDIC SVC (STRING 
1960+* O MYSTERY INTERRUPT MT 8 CS STATUS IN PROGRESS CS OOO0O1F 2076 READI EQU 31 READ DATA SETS FOR MDI/UTIL 
1961+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 000020 2077 WRIT EQU 32 WRITE DATA SETS FOR UTIL 
1962+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE 2079 2622 RIO IO RI IGOR IO I IG RO I I OK IK io GK dak i ikak ak akok ac 
1963+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 2080 * * 
1964+* 2081 * EQUATES USED BY TU'S AS CONSTANTS * 
1965+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 2082 * 
1966+* 5 HARD ERROR FOUND HE 13. OITO CC ERROR IOCC 2083 9 I I IO IRI III I IORI III OK RO i i tk tot ak 
1967+* 6 WRONG INTR LEVEL $LE 14 NO INTERRUPT NOIN OOO04E 2084 PLUS EQU C'+#t PLUS CHAR 
1968+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000060 2085 MINUS EQU cr-t MINUS CHAR 
1969+* BIT HEX 000000 2087 ZERO EQU 0 
000020 19704MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000001 2088 ONE EQU 1 
000021 1971+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 000002 2089 TWO EQU 2 
000022 1972+XTI EQU 34 2 Z EXPECTED INTERRUPT CONTROL BIT 000003 2090 THREE EQU 3 
000023 1S973+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000004 2091 FOUR EQU 4 
000024 19744+XE EQU 36 4 8 EXPECTED ERROR RESPONSE 000005 2092 FIVE EQU 5 
000025 1975+HE EQU 37 5 4 HARD ERROR, 8 PETRIES 000006 2093 SIX EQU 6 
000026 1976+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 000007 2094 SEVEN EQU 7 
000027 19774NI EQU 39 7 1 NO INTERRUPT EXPECTED BE 000008 2095 EIGHT EQU 8 
000028 1978+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS 000009 2096 NINE EOQU 9 
000029 1979+CSA EQU 41 9 4 CYCLE STEAL AVAILABLE OOOOOA 2097 TEN EQU 10 
OOO0O02A 1980+CE EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 000008 2098 ELEVN EOU 11 11 
00002B 1981+ISBON EQU 43 11 1 ISB BITS ON (1-7) 00000C 2099 TWELV EQU 12 12 
00002C 1982+NG EQU 44 12 8 TEST UNIT RESULTS NO GOOD 00000D 2100 THRIN EQU 13 13 
00002D 19834+IO0CC EQU 45 13 4 OITO CC ERROR OOOOO0F 2101 FIVIN EQU 15 15 
O0002E 1984+NOIN EQU 4A 14 2 NO INTERRUPT 000010 2102 SIXTN EQU 16 16 
00002F 1985+INCC EQU 47 15 1 INTERRUPT CC ERROR 000020 2103 THRY2 EQU 32 32 
1986+* 000040 2104 SIXT4 EQU 64 64 
1987+* COMMON BUFFER FOR PRINTING DATA 000080 2105 ONE28 EQU 128 128 
1988+* 000100 2106 TWO56 EQU 256 256 
OO0O2F78 0000 19904¢$TUID DC A (*-* TEST UNIT IDENTIFICATION 000400 2107 ONEK EOU 1024 1024 
OO2F7A 0000 1991+$I0IN DC A (*-* I/O AND INTR CONDITION CODES 000800 2108 TWOK EOU 2048 2048 
002F7C 0000 1992+$ISB DC A (*-* R7, INTR STATUS BYTE & DEV ADRS 000C00 2109 THREK EQU 3072 3072 
OO2F7E 0000 1993+LSTIO DC A (*-* ADRS OF LAST I/O + 4 BYTES 001000 2110 FOURK EQU 4096 4096 
002F80 0000 19944+DEV1 DC A (*- DEVICE DEPENDENT DATA FFFFFF 2112 M EQOU -1 -1 
32682 8088 i3gevpeva Be ANCE PEED oe 23 
002F86 0000 19974+DEV4 DC A (*-* CS STATUS ERROR ISB & INTR CC FFFFFC 2115 M4 EQuU -4 - 
002F80 1998+SCTID EQU DEV1 PEAD ID BUFFER FOR IBIS & TERN 2117 4 AR OK OR ROK RIO IO RIOR OI ROR RIOR OR RIOR IRR I RR OK Rik kao ak 
002F88 19994+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 2418 * a ok 
002F88 0000 2000+DCB1 D A (*-* LAST DCB TABLE, CONTROL WORD 2119 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE ok 
0O02F8A 0000 2001+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 2120 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
OO2F8C 0000 2002+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 2121 * * 
0O02F8E 0000 2003+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 2122 2 RK ROR IO III ROR OR IIR RIOR ROR I RR IRR ga ak af ako ak 
Q0O02F90 0000 2004+DCB5 DC A (*¥- * LAST DCB TABLE, DEV DEP WORD 000000 2123 BSO EQU 0 
002F92 0000 2005+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000001 2124 BS1 EQU 1 
OO0O2F94 0000 2006+DCBT7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000002 2125 BS2 EQU 2 
OO2F96 0000 ee ae DC A (*-* LAST DCB TABLE, BUFFER ADDRESS eae ie ee 3 
+ 
002F98 2009+CSBUF EQU * CYCLE STEAL DATA BUFFER 000005 2128 BSS EOU 5 
002F98 0000 20104+CSTL1 DC A (*-* CS STATUS WD O, RESIDUAL ADDRESS 000006 2129 BS6 EQU 6 
OO2F9A 0000 2011+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 000007 2130 BS7 EQU 7 
OO02F9C Q000 2012+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 000008 2131 BS8 EOU 8 
OO2FIE 0000 2013+CETLY DC A (*¥- * CS STATUS WD 3, RETRY CNT WD 2 000009 2132 BS9Y EOU 9 
OO2FAO0 0000 20144CSTL5 DC A (*-* CS STATUS WD 4, ERROR STATUS WD 1 OOOOOA 2133 BS10 EOQU 10 
OO2FA2 0000 2015+CSTL6 DC A (*¥-* CS STATUS WD 5, ERROR STATUS WD 2 O00000B 2134 BS11 £EOU 11 
OO2FA4 0000 2016+CSTL7 DC A (*¥-* CS STATUS WD 6, LAST DCB ADDRESS 00000c 2135 BS12 EOU 12 
OO2FA6 0000 2017+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 00000D 2136 BS13 EQU 13 
QOO2FA8 0000 2018+CSTLY DC A (*¥-* CS STATUS WD 8, CURRENT HD/CYL OOOO0E 2137 BS14 FOU 14 
OO2FAA 0000 2019+CST10 DC A (*-* CS STATUS WD 9, FLAG/SECTOR OOOOOF 2138 BS15 EQU 15 
OO2FAC 0000 20204CST11 DC A (*¥-* CS STATUS WD 16, HEAD/CYLINDER 2140 COPY TV7A2Z0DCB 15NOVT77 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2141 ** (T7AOODCB) 2255 * RETURN 
21ND KKK KKEKEEKE HK HEE RK EKER AEE EEE EE EKER EEK YY /D 8/7] TEER EK KKK 2256 * 
2143 * 2257 * BXS (R6,2) - NORMAL 
2144 - DCB TABLES AND DC'S 2238 : 
DVB 6 8h RK RK KK KK KK KK KR KK KK kok kok kato kook kok kok Rk KKK ko ok kok ok tok tok ok bok ok kK ok ok 2260 PS SPSS SESSSLESSSSESS SS SSS SSSSSSS SESS SS SSS SE SSSE SSS SSS ESS ESSE SES SPST SSL TEST SF FS 
2147 * 2261 * 
2148 ****k* DIAGNOSTIC DCB ee Tee TT. 003070 4724 0004 2262 CMPRW MVWI 4,R7 COMPARE BYTE COUNT 
2149 * 003074 4324 2F80 2263 MVA séTID, R3 ADDR OF RD SEC ID DATA 
OO2FCA 2008 2150 DGDCB DC xX*2008! DIAGNOSTIC DCB 003078 4524 3048 2264 MVA WRSID,R5 ADDR OF WR SEC ID DATA 
002FCC 0000 2151 DC A (*-* FLAG / PHYSICAL SECTOR# 00307C 2BA6 2265 CFNEN (R3), (R5) COMPARE ID DATA 
002FCE 0000 2152 DC A (*-* HEAD / CYLINDER#'S 00307B 68C0 0002 2266 BE R6, 2) BCH IF WRITE ID DATA OK 
OO2FDO 0000 2153 DC x'ooo0: NOT USE 003082 68D2 0000 2267 B R6f * COMPARE ERROR 
QO02FD2 3054 2154 DC A (RSBA) RSB ADDRESS 2269 OO OIG IE II III IOI IORI RII IO III IIR I 1A ACK AC IC 
OO2FD4 0000 2155 DC A {eos CHAINING ADDRESS 2270 * 
0OO2FD6 0100 2156 DC x*0100! BYTE COUNT 2271 * EXECUTE INPUT & OUTPUT COMMANDS 
002FD8 0000 2157 DC A (*-*) DATA ADDRESS 2272 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
2158 * 2273 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
2159 ***** RECALIBRATE DCB *******% 2274 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
2160 * 2275 * SUPVR CALL. 
OO2FDA 0001 2161 CLDCB pc X'0001! RECALIBRATE DCB 2276 * s 
0O02FDC 00000000000000000 2162 D DC TA (*=*) 2277 7 THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
2164 ***** READ SECTOR ID DCB ******* 2279 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
2165 * 2280 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
OO2FEA 201C 2166 RSDCB DC X*201C! READ SECTOR ID CNTL WORD 2281 * 
OO2FEC 0000 2167 DC A (*—% FLAG / PHYSICAL SECTOR# 2282 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
OO2FEE 0000 2168 DC x*Oo00! HEAD / CYLINDER#'S 2283 * ; 
OO2FFO 0000 2169 DC X'0000! NOT USED 2284 * 4 BAL SRKEW, R6 READ SECTOR ID SKEWED 
OO2FF2 3054 2170 DC A (RSBA) RSB ADDRESS 2285 * ai 
OO2FF4 0000 2171 DC A (*-* CHAIN ADDRESS 2286 * 2 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 
OO2FF6 0004 2172 DC X'O0048 BYTE COUNT FOR READ SECTOR ID 2287 * 2 
OO2FF8 2F80 2173 : pc A (SCTID) SECTOR ID DATA ADDRESS 2288 . 3 BAL $SWSEC, R6 WRITE SECTOR ID 
2179 ae SEEK DCB #8 2290 : 4 BAL $SDIAG, R6 DIAGNOSTIC 
OO2FFA 0000 2177 SKDCB DC X'0000! SEEK DCB CONTROL WORD 2292 * 5 BAL XIOCS,R6 CYCLE STEAL STATUS 
OO2FFC 0000 2178 pc X'00008 NOT USED 2293 * 2 
OO2FFE 0000 2179 DC A (*-*) HEAD / CYLINDER#'S 2294 * 6 BAL $SSEEK, R6 SEEK 
003000 0000 2180 DC x'ooo08 NOT USED 2295 * . 
003002 3054 2181. DC m{ESEs) PSB ADDRESS 2296 * 7 BAL $SRECL, R6 RECALIBRATE 
003004 0000 2182 DC A ) CHAIN ADDRESS 2297 * : 
003006 0000 21823 DC X"O00008 NOT USED 2298 * 8 BAL $RDID,R6 READ SECTOR ID 
003008 0000 2184 DC X'0000! NOT USED 2299 * a 
2185 * 2300 * 9 BAL SRD, R6 READ 
2186 ***** CYCLE STEAL STATUS DCB ¥#* #3 Kx 2301 * : 
2187 * 2302 * 10 BAL SRDVY, R6 READ VERIFY 
00300A 2000 2188 CSDCB DC X*20008 CONTROL WORD 2303 * " 
00300C 0000 2189 DC F'o? NOT USED 2304 * 11° BAL SWRT, RG WRITE 
00300E 0000 2190 Dc F'ot NOT USED 2305 * 
003010 0000 2191 DC Ftot NOT USED 2306 * 12 BAL $SRDIM, R6 READ MULTI SECTOR IDS 
003012 0000 2192 DC F'or NOT USED 2307 * 
003014 0000 2193 DC Fro? NOT USED 2308 Sf ePL Set SL SSS SS SL SS SSS SSE SS SSS SE SESS SSS PSST SPSS SSTES SSE SS TS SSS SST SSS STE FF 
003016 OO1A 2194 DC X'OO1A! 13 WORDS OF STATUS 2309 * 
003018 2F98 2195 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS DATA 003086 4020 3242 2FFA 2310 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
2196 * 00308C 5051 2311 J XIO 
2197 ***k* VERIFY DCB eR aa a 2312 * 
2198 * 00308E 4020 3242 2FDA 2313 SRECL HVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 
00301A 0019 2199 VRDCB DC X*00198 CONTROL WORD 003094 504D 2314 J XIO 
00301C 0000 2200 DC A (*-* FLAG / RECORD# 2315 * 
00301E 0000 2201 DC A (*-* HEAD / CYLINDER#'S 003096 4020 3242 2FEA 2316 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 
003020 0000 2202 DC A (*-* SCAN / REPEAT COUNT 00309C OBBB 2317 MVBI X'BB',R3 SET BUFFER TO B'S 
003022 3054 2203 DC A (RSBA) RSB ADDRESS 00309EF 4524 2F80 2318 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
003024 0000 2204 DC A (*-* CHAIN ADDRESS 0030A2 4724 0004 2319 MVWI 4,R7 SETUP BUFFER LENGTH 
003026 0000 2205 DC A (*-* BYTE COUNT 0030A6 2BAC 2320 FFN R3 (B5) INIT READ SECTOR ID BUFFER 
003028 0000 2206 DC Fro: NOT USED 0030A8 4020 2FF8 2F80 2321 MVA SChID, RSDCB+14 DATA ADDR 
2207 * O0O30AE 5040 2322 J XIO 
2208 ***** READ DCB ete a a ok 2323 * 
2209 * 0030B0 OBFF 2324 $RD MVBI X'FF!,R3 SETRD BUFFER TO ALL F'S 
00302A 2018 2210 RDDCB DC X'2018' READ DCB CONTROL WORD 0030B2 6D08 3038 2325 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 
00302c 0000 2211 DC A (*-* FLAG / RECORD# 0030B6 6F08 3036 2326 MVW RDDCB+12,R7 SET UP BUFFER LENGTH 
00302E 0000 2212 DC A (*-* HEAD / CYLINDER#'S OO30BA 2BAC 2327 FFN R3 A&° CLEAR READ BUFFER 
003030 0000 2213 DC A (*-* SCAN / REPEAT COUNT 0030BC 4020 3242 302A 2328 $RDS MVA RDHCB, LODCB SET UP BLOCK FOR SVC CALL 
003032 3054 2214 DC A (RSBA) RSB ADDRESS 0030C2 5036 2329 J XIO 
003034 0000 2215 DC A (*¥—* CHAIN ADDRESS 2330 * 
003036 0100 2216 DC X*0100! BYTE COUNT 0030C4 4020 3242 301A 2331 SRDVY MVA VRDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
003038 0000 2217 ‘ Dc A (*-*) READ DATA ADDRESS 0030CA 5032 2332 . J XIO 
2219 * CONSTANTS AND DEFINED STORAGE LOCATIONS 0030CC 4020 3242 2FCA 2334 SDIAG MVA DGDCB, ICDCB SET UP CONTROL BLOCK FOR SVC CALL 
00303A 0000 2220 ZEROO DC X'0000! CONSTANT ZERO 0030D2 502E 2335 J XIO 
00303c 0001 2221 ONE1 DC X'0001! CONSTANT ONE 2336 * 
00303E 0000 2222 RAY DC Ae) WRITE PARAMETER POINTER 0030D4 6E0D 2337 $WRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 
003040 EB6D 2223 WDATA DC X"EB6D' WRITE DATA 0030D8 OBFF 2338 MVBI 255,R3 CLEAR CYCLE STATUS BUFFE 
003042 6BDB 2224 DC X'6BDBt * OO30DA 4524 2339 MVA CSBOF,R5 * 0 ALL ONES * 
003044 0000 2225 LGSEC DC X'0000' LOGICAL SECTOR # OO0O30DE OF16 2340 MVBI 22,R7 * 
003046 0000 2226 PHYSC DC X'0000!8 CONVERTED PHYSICAL SEC # 0030EO 2BAC 2341 FFN R3 (RS) * 
003048 0000 2227 WRSID DC X'0000! FLAG,SECTOR (WRT SECTOR ID DATA) OO30E2 4524 2342 MVA DCBUF, R5 CLEAR DCB BUFFER TO ALL ONES 
00304A 0000 2228 DC X'00008 HEAD,CYLINDER OO030E6 OF10 2343 MVBI 16,R7 * 
00304C FF34 2229 WSIDT DC X'FF34" WRITE SECTOR ID TEST DATA 0030E8 2BAC 2344 FFN R3 fR ) * 
OO304E 5678 2230 DC X'5678° * OO30BA 4020 0708 2345 mvWr x'6708',$I0IN OVERLAY OLD CONDITION CODES 
003050 0000 2231 SCTST DC X'0000! READ SECTOR ID TEST DATA BUFFER OO030FO cCB25 2346 MVWZ $1ISB,R3 ZERO OUT OLD ISB VALUE 
003052 0000 2232 DC X*'0000! OO30F4 4CA3 2347 TBTR R4, fn CLEAR INTERRUPT RECEIVED CNTL BIT 
003054 00000000000000000 2233 RSBA_ DC On (+4) PESINUAL STATUS BLOCK 0030F6 4CAT1 2348 TBTR RU,ER RESET ANY ERROR BEFORE I/0 COMMAND 
003060 0000 2234 CTRO2 DC x'0000' COUNTER OO30F8 4cC62 2349 TBTS (R4,XI SET EXPECTED INTR CONTROL BIT 
003062 0000 2235 CTRO3 DC X'0000! COUNTER OO30FA 4724 2350 MVA OBLK,R7 SET UP CONTROL BLK FOR SUPR 
003064 0000 2236 ID00 pc X*00008 ID ADDRESS TO BE SET BY USER OO30FE C020 2351 MVB  IOMOD+1,R0 GET IDCB FUNC/MODIFIER 
003066 0000 2237 LPCNT DC A (sot) PATTERN COUNTER 003102 402D OOFO 2352 RBTWI X'OOFO',IOMOD REMOVE FUNCTION FROM 'IoOMOD! 
003068 1010 2238 PDATA DC X*1010! DATA PATTERNS 003108 3022 2353 SRL 4, RO RIGHT JUSTIFY FUNCTION BITS IN RO 
00306A 5555 2239 DC X'5555' * 00310A F005 2354 CBI 5,0 IDCB FUNCTION = 5? 
00306C AAAA 2240 DC X'"AAAA® * 00310C 1003 2355 JE SWRT 1 YES - ISSUE 'SVC WRIT1! 
00306E FFFF 2241 pc X'FFFF! * 00310E 6010 2356 SVC WRITO ISSUE WRITE DPC '4x' OP 
2242 * 003110 6802 318A 2357 B XIO8-4 GO WAIT FOR THE INTERRUPT 
2243 HE HE He He He eH He He a aE He a He Mee He HY 0) G7 7 2 HE HH 2 He RC a ok ea a a eK 003114 6011 2358 SWRT1 SVC WRIT 1 ISSUE WRITE DPC '5X*! OP 
2244 * 003116 6802 318A 2359 B XIO8-4 GO WAIT FOR THE INTERRUPT 
2245 * SUBROUTINE 2360 * 
2246 * 00311A 4020 3242 302A 2361 $DGRD MVA RDDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 
22uU7 * PURPOSE 003120 6F08 3036 2362 MVW RDDCB+12, R7 GET NO. OF BYTES TO CLEAR 
2248 * 003124 6D08 3038 2363 MVW RDDCB+14, R5 ADDR OF READ BUFFER 
2249 x COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 003128 OBFF 2364 MVBI X'FF*,R3 CLEAR TO Ft 
2250 * 00312A 2BAC 2365 PFN R3, (R5) * 
2251 * CALLING SEQUENCE 00312C 6802 3136 2366 B XIODG ISSUE START CS DIAG CMD 
2252 * 2368 COPY TTVAXEQ OSMAR78 
2253 * BAL CMPRW,R6 (NORMAL) 2369 PRINT OFF 
2254 * 29 33 T7AXEO 
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STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
UO ORI OR OI ICG GIOR IG IO RI I a I HORA I KK 29 JUL 7 6 ** 


+ 
* 


biel SUB-ROUTINE 
EXECUTE INPUT AND OUTPUT COMMANDS 
+* PURPOSE 


+* 
TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 


1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
THE I/O COMMAND. 

2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
ISSUED BY THIS SUBROUTINE. 

3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 

G4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 
SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
MYSTERY INTERRUPT | CONTROL BIT IS SET. 

5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 
EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE ‘SVC  START*. 

6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 

STARTS TO DETERMINE A LOST INTERRUPT. 

EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 

WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 

CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 

CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 

CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 

CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 

CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 

ISSUED BY THIS SUBROUTINE. 

- CHECK THE ISB BITS THAT ARE ON. IF BIT 0 IS ON, ISSUE A 

CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING IN, 
COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 


CALLING SEQUENCE 
THIS ROUTINE HAS THE FOLLOWING ENTRIES: 


+++ 
+ % 


+ 
* 

~ 
‘ 


aad woh oh ood 
WwW N}]Owe 
é 


PERE EEE EE EEE EE EE EEE FEHR EE HEE EEE HEHEHE HEHEHE HEH 
Hee HEHE HEHE HE HE EH HHH KH HHH HHH HHH HEHEHE HHH 


293 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2044 
2945 
3946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
295) 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974+* --> BAL  XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
2975+* --> BAL  xXI01 MOD PARM PRELOADED IN ‘romob' 
2976+* --S BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
2977+* --> BAL XIOCS-4,R6 AUTO CS STATUS (FOLLOWING OTHER XIO 
2978. : AND DOES NOT POST INTERRUPT STATUS) 
2980 RETURN CONTROL 
2982 BXS R6, 2) RETURN TO USER NO ERROR 
2983 R R6j * RETURN AND RETRY ON ERROR 
DIB 4K KK KK He He he ie a He a aK a fe he 2c 8 i ok fe oi 2c 2 ae ae 2 a a of ae 2 2c 2 2 le 2 2k i ai 2c ic 2 ae ce ok a a 2 oo ok ak 
2986+XIO  MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 
2987+ J XI01 CS I/O0'S ARE NOT RETRIED 
+ 
2989+XIODG MVWI xX'000D',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
2990+ J XI01 GO TO CS OPS 
+ 
2992+ TBTR (R4,CE RESET CS STATUS INTER ERROR INDICAT. 
2993+ TBTS (R4,CS SET 'CYCLE STEAL STATUS" IN PROGRESS 
2994+xI0CS MVA SDCB, TODCB SET UP CONTROL BLOCK FOR SVC CALL 
2995+ MVWI X'OOOF', TOMOD SET CYCLE STEAL MODIFIER 
2996+ TBT — (R4,CS) TS CS IN PROGRESS, ERROR CONDITION 
2997+ JON TO? * YES, BYPASS SAVING I/O ADRS 
2998+xI01 MVW  R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
2999+ MVA  DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 
3000+ MVW TODCB,R5 * AND THE FROM ADRS, ALONG WITH 
3001+ MVBI 26,R7 * THE NUMBER OF MOVES 
3002+ MVFN SRD) » (R3) MOVE 1 STATUS WORD AND ADJUST 
3003+ MVBI 255,R CLEAR CYCLE STATUS BUFFER 
3004+ MVA  CSBOF,RS x TO ALL ONES * 
3005+ MVBI 26,R7 x 
3006+ FFN R3 4R5) x 
3007+ MVWI X'6708',SIOIN OVERLAY OLD CONDITION CODES 
3008+ MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
+ 
3010+ TBTR (R4,ER RESET ANY ERROR BEFORE I/0 COMMAND 
3011+XI02 TBTR (R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
3012+ MVA OBLK, R7 SET UP CONTROL BLOCK FOR SUPVR 
3013+ TBTR (RG, $LE) RESET LEVEL ERROR INDICATOR 
30144 TBTS 4* XT) SET EXPECTED INTR CONTROL BIT 
3015+, SVC TART CALL SUPVR FOR I/0 COMMAND 
+ 
3017+ TBTR (R4,NI) IS AN INTR EXPECTED 
3018+ BN R6, 2) * NO, RETURN TO USER 
+ 
302044 THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
3022+ MVWI 0,R5 SET UP WORK REG FOR 'LOST INTR* 
3023+XI08 TBTR (ha IN) HAS INTERRUPT BEEN RECEIVED 
3024+ JON TOCK * YES, CHECK IF ALL WAS SATISFACTORY 
3025+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
3026+% SUPVR WILL RETURN HERE 
3027+ Svc IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
3028+% SUPVR WILL RETURN HERE 
3029+ AWI 1, R5 ADVANCE TIME OUT COUNT 
3030+ JNZ xfo8 BCH IF TIME OUT NOT REACHED 
3031+ TBTS (R4,ER) SET ON ERROR CONTROL BIT 
3032+ B R6f * ERR 'NO INTERRUPT? 
30 3 + KK KK KK KK K KKK HEM He eH I A HE A 2 2 a RC KO 2 I I IK I RO I i 2 i i ko Ke ek ok ek KOKO IE ERT G6* * 
3035+* 
3036+* SUBROUTINE 
3037+ 
3038+% I/O EXECUTE ERROR HANDLING ROUTINE 
+ 
3040+% PURPOSE 
+ 
3042+ THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
3043+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
3044s SUPERVISOR AND IT WAS NOT ACCEPTED. 
+ 
2046++ CALLING SEQUENCE 
+ 
304 8+% SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
+ 
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STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
Q+* RETURN CONTROL 
+ 
att B (R6) * RETURN TO USERS ERROR HANDLER 
+ 
EES STS SEL SS SSS SS SESS SLIE SL SSS ESSE ESET SSS SSE ESS SSLELE SS SLES ESTES SPST SLT SE STS SS 
5+ 
6+* CC O= DEVICE NOT ATTACHED 
7+* FOR 1= DEVICE BUSY 
8+* 1/0 2= DEVICE BUSY AFTER RESET 
+* 3= COMMAND REJECT 
+ W= INTERVENTION REQUIRED 
* 5= INTERFACE DATA CHECK 
* 6= CONTROLLER BUSY 
* 7= I/O COMMAND EXCEPTED 
XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
SRL 13,R3 POSITION CC CODE TO BITS 13-15 
MVB R3,$IO0IN * PUT IN LOG OUT AREA 
B (RO) * RETURN TO USER ERROR HANDLER 
We 2 HE ee 2 oe i 2c eC 2 Re a ce i ic 2 2k 2 2 ak a 2 ak a i 2 ke a a i kok a kk ok kok kok kK KT UA DPT 6** 
x 
* SUB-ROUTINE 
* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL' 


PURPOSE 


PEE EEEE EEE EERE EEE HEHEHE EEE HH 
HHH 


305 
305 
305 
305 
305 
305 
305 
305 
305 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3070 
3071 IL 
3072 IL 
3073 IL 
3074 IL 
3075 IL 
3076 IL 
3077+* IL 
3078+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR’ IL 
3079+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
3080+ * EXPECTED CODE. IL 
3081+% IL 
3082+* CALLING SEQUENCE IL 
3083+* IL 
3084 + SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 
IL 
3086+* RETURN CONTROL IL 
3087+* TL 
3088 * SVC EXIT RETURN TO USER VIA SUPVR IL 
30904 ESE GO EEE IE EE IEE EGE SO SEE ISOS OEE I IEEE EE 
3091+* IL 
3092+* CC O= CONTROLLER END ISB O= ADD STATUS IL 
3093+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT TIL 
3094+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
3095+* 3= DEVICE FND INTERRUPT INTR 3= DCB SPEC CK IL 
3096+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 
3097+* 5= ATTENTION / PROGRAM CNTL INTR S5= INV STG ADRS IL 
3098+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
3099+ 7= ATTENTION / DEVICE END INTR J= I-FACE DATA IL 
+ IL 
31014INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
3102+ SRL 13, R3 POSITION INDICATORS IN R3 IL 
3103+ MVA OPTN1,R4 SET UP BASE ADRS IL 
3104+ TET (Ru c§) IS CS IN PROGRESS IL 
3105+ JOFF INTES * NO TL 
3106+ TBTS (RU, CED TURN ON CYCLE STEAL INTER ERROR IL 
3107+ MVW  R7,DEV SAVE CS ERR ISB VALUE, BITS 0-7 TL 
3108+ MVB  R3,DEV4G+1 * AND THE COND CODE IL 
3109+ J INTR1 IL 
3110+INTES TBT (Ra XE) TEST EXPECTED ATTEN / ERROR IND IL 
3111+ JOFF INTET BCH IF NOT EXPECTED IL 
3112+ CBI 4,R3 IS THIS AN "ATTENTION' INTR IL 
3113+ JE ThtTR1 * YES, BCH TO END INTR SEQUENCE IL 
31144+INTET TBTS (Ra ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
3115+ J NTR1 IL 
3116+* THE ERROR INTERRUPT USES THE SAME TIL 
3117+* ENDING SEQUENCE AS THE NORMAL INTR IL 
CEM S tet ST SST SSL TSS ST SSS SSS ST SSS TS SLT SS SL SS SSS SS: KKK KK KKK KK KKK KEKE PL APRTELIL 
3120+* IL 
3121+* SOUBROUTINE IL 
3122+% IL 
3123+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL! IL 
3124+* IL 
3125+* PURPOSE IL 
3126+%* IL 
3127+% TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
+ IL 
3129+* CALLING SEQUENCE EL 
3130+* IL 
3131+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
3132+% THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
3133+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 
31344+* COMMON SECTION IS HANDLED HERE. IL 
3135+* IL 
3136+* RETURN CONTROL IL 
3137+* TL 
3138+* SVC EXIT RETURN TO USER VIA SUPVR IL 
F104 EGE IEEE OEE EE EEOC IGE ISIC IGE GEE a REE KE KEE 
31414INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
3142+ SRL 13,R3 POSITION INDICATORS IN R3 IL 
3143+ MVA OPTN1,R4 SET UP BASE ADRS TL 
3144+INTR1 TBTS (R4,IK SET INTERRUPT RECEIVED TL 
3145+ TBT R4’CS IS 'CS IN PROGRESS' OW Tr 
3146+ JON NTR2 * YES, BCH AROUND UPDATE IL 
3147+ MVB R3,$1OIN+1 SAVE INTERRUPTING CC CODE IL 
3148+ MVW R7,$ISB SAVE INTR STATUS AND DEV ADRS IL 
31494+INTR2 EQU * IL 
3150+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 
3151+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
3152+ ABI 1,R5 * IN 'I' BIT IL 
3153+ CW SINTL, RS IS THIS THE CORRECT INTR LEVEL IL 
3154+ JE INTR3 * YES, GO EXIT THIS LEVEL Tt 
3155+ TBTS (R4,$LE) SET INTR LEVEL ERROR CONTROL BIT IL 
3156+ BTS (RULER SET ERROR ON I/O COMMAND CNTL BIT IL 
3157+INTR3 TBTR (R4’XT WAS INTERRUPT EXPECTED TL 
3158+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 
3159+ TBTS (Ra MI) * NO, SET MYSTERY INTR CONTROL BIT TL 
3160+ CBI R3 ATTENTION INTERRUPT? IL 
3161+ JE INTRX YES TL 
3162+ TBTS (Ra, NG) ERROR,UNEXPECTED INTERRUPT TL 
3163+INTRX SVC EXIT fHIS LEVEL VIA SUPVR TO PGM IL 
316 SF HK RK KK KH ee eK i i eK I aK dK Kk ea ok ok kk kok kok ek ok kk kok KK KO 3 FEB] 6 *«* 
3166+%* 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3167+* THIS IS THE CONTINUATION OF EXECUTE I/0 AFTER THE INTERRUPT 00329E 4020 1892 4040 3283+ MVWI X*4040", TUWORK+ 120 
3168+ HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 0032A4 ODO4 3284+$PRNT MVBI 4,R5 
3169+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. O032A6 4324 181A 3285+ MVA TOHWORK, R3 SET UP BUFFER STORAGE 
3170+% 0032AA 6BO0D 344E 3286+ MVW R3,BUFPT 
3171+* OO32AE 4124 332A 3287+ MVA LINE, R1 
003204 4CA4 3172+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 0032B2 OFO4 3288+ MVBI 4,R7 
003206 6ACO 0002 3173+ BN RG, 2) * YES, EXIT THIS ROUTINE 0032B4 OEO08 3289+ MVBI 8,R6 
00320A 4CA8 3174+ TBTR (R4,CS) WAS AUTO CS IN PROGRESS 0032B6 2B24 3290+MVBUF MVFN (3). (R1) 
00320C 1006 3175+ JOFF IOCV * NO, CONTINUE CHECKING 0032B8 OFO4 3291+ MVBI cB 
00320E 4C2A 3176+ TBT R4,CE) Is cS IN AN ERR CONDITION 0032BA OA4O 3292+ MVBI X!40*,R2 
003210 1002 3177+ JOFF Toco * NO, BCH 0032BC C258 3293+ MVB R2 (8 ps 
003212 68D2 0000 3178+ B R6) * CS ERROR 0032BE BEFB 3294+ Jct MVBUF,R6 
003216 4C69 3179+XIOCO TBTS (R4,CSA) TURN ON CS STATS AVAIL FLAG 0032C0 QE08 3295+ MVBI 8,R6 
003218 5601 3180+ BXS R6,2 GO TO USER 0032C2 7921 002c 3296+ AWI «44, R1 
00321A 4¢21 3181+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 0032C6 BDF7 3297+ JCT  MVBUF,R5 
00321C 100D 3182+ JOFF TOCxX * NO, EXIT THIS ROUTINE 0032C8 4020 1802 FIFO 3298+ MVWI PIDMSG610 PID+2 
3183+* 0032CE 4020 19B8 3454 3299+ MVA FAKETU,@DCADD1 
00321E C520 2F7B 3184+ MVB $IOIN+1,R5 GET LAST INTR CC CODE 0032D4 4020 19BA 3450 3300+ MVA DC2PT, @DCADD2 
003222 F502 3185+ CBI 2,R5 IS THIS CC=2 0032DA 402cC 19C4 0080 3301+ OW! BITO080, SUPSTAT 
003224 1003 3186+ JE xfoco YES 0032F0 4324 2F78 3302+ MVA $S$TUID,R SET UP BUFFER STORAGE 
003226 F506 2187+ CBI 6,R5 TIS THIS CC=6 0032E4 6F13 18BA 3303+ BAL TUMSGWTR*, R7 GO TO MESSAGE WRITER 
003228 68D1 0000 3188+ BNE (Be) * * NO, BCH TO ERROR HANDLER 3304+* 
00322C C520 2F7C 3189+XIOCQ MVB ISB,R5 GET LAST ISB DATA BYTE AND IF 7S 0032E8 3305+$CONX equ - 
003230 6A00 313E 3190+ BN XIoc§-4 * AVAILABLE, GO AND GET IT 0032E8 C720 19D0 3306+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
003234 68D2 0000 3191+ B §R6)* ERROR 0032EC 6013 3307+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
903338 cB2> 2F76 3132+XxI0cx HV HZ pr saa CLEAR OUT OPTION 3 CNTL BITS 0032EE 6812 2FBA 2308F B TURTN* RETURN TO MDI SUPERVISOR 
+ RETURN TO USER VIA REG 6 
3194+ AEDs 0032F2 0009 3310+BEGIN DC A(0009 NUMBER OF LINES TO PRINT 
3195+* 1/0 PARAMETER LIST 0032F4 0008 3311+ DC A (0008 LINE LENGTH = 8 CHAR 
3196+* 0032F6 5C5C40C1C2D6D9E3 3312+ DC C'**x ABORT? 
00323E 19D0 3197+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 0032FE 0028 3313+ DC A (0040) LINE LENGTH = 40 CHAR 
003240 31A2 3198+ DC A (XIOER) ERROR ROUTINE ADRS 003300 E3E4CIC44OCOD6ECID 3314+ DC C*TUID IOIN ISB INST SECT DATA CSCC ! 
003242 0000 3199+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 003328 0028 3315+ DC A (0040) LINE LENGTH = 40 CHAR 
003244 0000 3200+IOMOD DC A (*-* MODIFIER 00332A 4O0404040404040404 33164+LINE1 DC ce ' 
003246 0000 3201+ DC A (*-* ADRS OF LAST SVC CALL 003352 0028 3317+ DC A (0040) LINE = 40 CHAR 
003248 0000 3202+IORSP DC A (*-* SECOND WORD OF LAST IDCB 003354 C3D5E3D340C4C3C2F 3318+ DC C°'CNTL DCB1 DCB2 DCB3 DCB4& CHAD BYCT ADRS * 
3203+* 00337c 0028 3319+ DC A (0040) LINE LENGTH = 40 CHAR 
3204+%* INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 00337E 4O404040404040404 33204+LINE2 DC cr t 
3205+* 0033A6 0028 3321+ DC A (0040) LINE LENGTH = 40 CHAR 
00324A 19D0 3206+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 0033A8 C3E260FO40C3E260F 3322+ DC C*cS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
00324C 31D2 3207+ DC A (INTOK INTERRUPT OK RETURN ADRS 0033D0 0028 3323+ DC A (0040) LINE LENGTH = 40 CHAR 
00324E 31AE 3208+ DC A (INTER INTERRUPT ERROR ADRS 0033D2 4O4O4OLO4OKOLOUON 3324+LINE3 DC c’ : 
003250 0003 32094INTCC DC ' ' INTERRUPT CODE EXPECTED O033FA 0028 3325+ DC A (0040) LINE LENGTH = 40 CHAR 
3211+ RI II OC OC OK daca sola ck tok cok 1 MAY 76% * O0033FC C3E2Z60F840C3E260F 3326+ DC C'CS-8 CS-9 CS-A CS-B CS-C ! 
3212+* 003424 0028 3327+ DC A (0040) LINE LENGTH = 40 CHAR 
3213+% SUBROUTINE 003426 40404040404040404 3328+LINE4 DC Cc ' 
+ + 
3215+* CONNECT INTERRUPT CONTROL BLOCK € PREPARE DEVIC OO344E 0000 3330+BUFPT DC A (*-* 
331648 ures 003450 32F2 33313DC2PT DC  -RABEGIN) 
3217+* PURPOSE 003452 0101 3332+FIXTU DC X"0101° 
331946 Oorizo 3330:PTDNSG10 BOU ~ X'PIFOt 
+ TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 4 
3220+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 3335+BIT0080 EQU X*0080! 
3221+* TO INTERRUPT. 3336+% 
3222+% 3337+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
3223+* CALLING SEQUENCE 3338+* 
32244* 003456 003A 3339+HEBLK DC A(58 NUMBER OF BYTES TO CONVERT 
3225+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 003458 2F78 3340+ DC A (STUID FROM ADRS 
se eaten tee UB oasSola TSC. obaRyyge TO BPRS 
+ _-— 
3228+* =. Ane sCoND TES PEEPMRE DEVECE ONLY AL EGaGe CEWNERE: Z3ZG3 Km KK HK KK He HK ee eK Ke He 2 eK 2 oe a 2K a a a i a i i ff ae a 2 2 eK a ic ae 2c 2 ke afc oe ca ac a 2 a 2c 2 2 ofc feo 
3229+%* 3344 * SUBROUTINE 
3230+* RETURN CONTROL 3345 * 
3231+% — 3346 READ TRACK ID 
+ BXS R RETURN TO USER VIA REG 6 IF OKAY 
3233+% OR B (Res IF THE DEVICE COULD NOT BE CONNECTED Sens , PURPOSE 
3235 + RH RK OK OI I I IC OR OR a OI I tok ok doko Ok ki kia ok 3350 * READ AND STORE TRACK ID (HEAD/CYLINDER) INTO TU RESULTS BUFFER. 
003252 OF06 3236+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 3351 * 
003254 0OBOO 3237+ MVBI 0,R3 * AND THE DATA TO USE 3352 * CALLING SEQUENCE 
003256 4524 2F80 3238+ MVA  DEV1,R5 * ALONG WITH THE ADRS TO USE 3353 * 
003254 2BAC ees 3239+ EFN R3,(R5) * 3334 : BAL VSEEK, R6 READ AND STORE TRACK ID 
+ Z Op CLEAR OLD CONTROLS FOR NEW ROUTINE 
003260 4724 324A 3241+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 3356 * RETURN CONTROL 
003264 6014 3242+ SVC CICB * CONNECT IT TO THIS DEVICE 3357 * 
003266 6ADO 0000 3243+ BN (R6) * ERROR RETURN TO USER er i B SEEKK+2 RETURN TO CALLER 
+ 
00326A 8828 2FB8 3242 3245+$CONP MVW SINTL, IODCB PUT IN LEVEL & INTR PARAMETER 3360 2 ROR IO OI IG I a loo I I II I IR ak 4k ik ok 
003270 4724 323E 3246+ MVA IOBLK,R7 SET R7 TO CONTROL BLOCK TO PREPARE 00345C 6E0D 3492 3361 VSEEK MVW R6,SEEKK+2 SAVE RETURN ADDRESS 
003274 4020 2F7A 0708 3247+ MVWI xX'0708', SIOIN INITIALIZE CONDITION CODE STORAGE 003460 8828 2FFE 2FEE 3362 MVW SKHCB+4,RSDCB+4 LOAD HEAD AND CYLINDER DATA 
00327A CB25 2F7C 3248+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 003466 4020 2FF6 0004 3363 MVWI 4,RSDCB+12 SET BYTE CNT TO READ ONE ID 
00327E 6E0D 2F7E 3249+ MVW =. R6,, LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 00346C C825 2FEC 3364 MVWZ RSDCB+2,R0 SET PHYSICAL SECTOR TO ZERO 
003282 600C 3250+ SVC PREP * AND CALL ON SUPVR 003470 6803 3096 3365 VSEC BAL $RDID, RO READ SECTOR ID 
003284 5601 3251+ BXS (R6, 2) RETURN TO USER 003474 3286 3366 DC A (SERRS) ABORT TEST IF ERROR 
3 25.3 FAO OIG OI IO IGIGIOISI IG RIG GIGI Iii Ei io IK 06 A PRT 6 4« 003476 402B 2F80 F700 3367 TWI X* F700" ,SCTID CHECK IF GOOD SECTOR Eee yy OR 04) 
32544+* 00347C 1009 3368 IZ SEEKK SECTOR GOOD - GO CHECK HD/CYL 
3255+* SUBROUTINE 00347E 402F 2FEC 0020 3369 cwI 32,RSDCBt2 HAVE ALL SECTORS BEEN TESTED? 
3256+% 003484 6800 3490 3370 BE SEEKK YES - ABORT TEST ' 
3257+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 003488 4029 2FEC 0001 3371 AWI 1,RSDCBt2 NO - SET TO NEXT PHYSICAL SECTOR 
3258+ 00348E 50F0 3372 J vSEC GO READ ID AND VERIFY SECTOR 
3259+* PURPOSE 003490 6802 0000 3373 SEEKK B * — RETURN TO CALLER 
3260+* ZZ 75 HR HH HH KH HK KK HK KK KK KK oe a kk tk i i kak a akc ak ok ok 
3261+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 3376 * 
3262+* SET THE 'NO GOOD" CONTROL BIT, THEN LOG THE DATA THAT HAS 3377 * PURPOSE 
3263+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 3378 * 
3264+* 3379 * TO CALCULATE THE ELAPSED TIME WHEN CHECKING THE SPEED OF THE 
a26te CALLING SEQUENCE 3380 : DISK OR THE TIME OF A SEEK OP. FORMULA USED IS AS FOLLOWS: 
+ 
3267+% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: SE : T(USEC) = (10509*DSNS1 + 41*DSNS2)*.55 
3269+* --> B SERRS SET "NG' RIT AND CONVERT DATA TO LOG 3384 * CALLING SEQUENCE 
3270+* --> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 3385 * 
32]1+% 3386 * BAL TMDIG, R6 CALUCULATE ELAPSED TIME 
3272+* RETURN CONTROL 3387 * 
3273+* 3388 * RETURN CONTROL 
3274+* B TURTN* RETURN TO MDI 3389 * 
32 ]ot* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED ee : BXS (R6) RETURN TO CALLER 
J27 7 FR RII IOI II OI III IO RIOR IO III FOR I RIK I ROKK a ac B39 2 RR KK RR IO RIO IO IO RO Ing iki ak fotki tok ak kkk 
003286 4020 1818 8000 3278+$ERRS MVWI X' 8000" -TUSTATUS SET ON "NO GOOD" STATUS BIT 003494 4124 290D 3393 TMDIG MVWI 10509,R1 MULTIPLY DIAG SENSE BYTE 1 X 10509 
00328C 4724 3456 3279+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 003498 700A 3394 SW RO, RO * CLEAR REG 0 
003290 601A 3280+ SVC HTOEF CONVERT HEX TO EBC VIS DCP 00349A CD25 34E0 3395 MVWZ SPEED,R5 * CLEAR BUFFER 
003292 4020 188E 4040 3281+ MVWI X'4O4UO', TUWORK+116 00349E 8028 2FAE 34E1 3396 MVB DSNS1,SPEED+1 * MOVE DIAG SNSE BYTE TO WORD BOUND 
003298 4020 1890 4040 3282+ MVWI X*4040', TUWORK+118 OO34A4 £829 34E0 3397 MD SPEED, RO * PERFORM MULTIPLICATION 


























I7A20 --- CHANNEL/4963 DISK UNIT P/N=8327653 EC=375222 PAGE 13 I7A20 --- CHANNEL/4963 DISK UNIT P/N=8327653 EC=375222 PAGE 13A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO34A8 4324 0029 3398 MVWI 41,R3 MULTIPLY DIAG SENSE BYTE 2 X 41 00355C F002 3513 CBI X'02',RO WAS A READ OR READ STATUS OP EXEC? 
OO34UAC 724A 3399 SW R2,R2 * CLEAR REG 0 00355E 1D03 3514 JGT TTA01X NO —- SEND BACK ONLY OIO CC 
OO34AER CD25 34E0 3400 MVWZ SPEED,RS x CLEAR BUFFER 003560 8828 3572 18CA 3515 MVW T7A011I+2,TURESUL+2 LOAD DATA READ INTO RESULTS AREA 
OO34B2 8028 2FAF 3451 3401 MVB DSNS2,SPEED+1 * MOVE DIAG SNSE BYTE TO WORD POUND 003566 8828 2F7A 18C8 3516 T7A01X MVW $IOIN, TURESUL PUT ANY INTR COND CODE FOUND IN 
0034B8 EA29 34E0 3402 MD SPEED, R2 * PERFORM MULTIPLICATION 3517 TXIT * RESULTS AND EXIT 
0034BC D228 34E0 3403 MVD PR2,SPEED MOVE RESULTS OF 2ND OP TO BUFFER 00356C 6802 32E8 3518+ B S$CONX RETURN TO MDI CONTROLLER 
0034C0 D026 34E0 3404 AD SPEED RO ADD THE ABOVE RESULTS 3519 4 KK HH HH Hee He He HK He He eK 3 2 2 eK a i ok fe ka a i ofc ake oki of a 2k fe ake fake fe oe a af ok afc ate ate ake of ok ofc ake ate akc ake ofc abe fc 
OO34C4 E829 34DC 3405 MD D55,R6 MULTIPLY THAT RESULT BY 55 THEN 3520 * 
0034C8 E82A 34DE 3406 DD D106, RO DIVIDE THE PESULT BY 100 3521 * IDCB FOR DIRECT PROGRAM CONTROL COMMAND 
0034cCC 7A06 0000 3407 CWL 0,R2 ROUND QUOTIENT TO NEXT INTEGER IF 3522 * 
0034D0 1002 3408 JE XTMDG-4 REMAINDER NOT EQUAL TO 0 003570 0000 3523 T7A01I DC X'O0000! FUNCTION-MODIFIER-DEVICE ADDRESS 
0034D2 p026 303A 3409 AD ZEROO,RO * 003572 0000 3524 DC Xx'aqoaoor IMMEDIATE DATA BUFFER 
0034D6 D028 3480 3410 MVD RO, SPEED SAVE RESULTS 3526 COPY T7A03 O9JANT78 
0034DA 5600 3411 XTMDG BXS (R6) 3527 T7A03 TUIT 
3412 352 B+ HH HH KH RH KM I KK I EE ORO RK KK ok ok OKO G6 F EBT 6 * * 
0034DC 0037 3413 D55 DC F'55' DECIMAL 55 (WORK CONSTR AT) 3529+* 
OO34DE 0064 3414 D100 DC F'100°* DECIMAL 100 (WORK CONSTANT) 3530+* TEST UNIT 
0034EO0 00000000 3415 SPEED DC 2A (*-*) WORK BUFFER 3531+* 
0O0O34E4 00000000 3416 RGBUF DC 2F'O? READ RUFFER 3532+* DIRECT PROGRAM CONTROL INTERRUPTING CMDS 
OO2FAE 3417 DSNS1 EQU cST12 DIAG SENSE BYTF 1 3533+* 
OO2FAF 3418 DSNS2 EQU CST12+1 DIAG SENSE BYTE 2 3534+* PURPOSE 
002FBO 3419 DSNS3 EQU CST13 DIAG SENSE BYTE 3 3535+* 
002FB1 3420 WRAP EQU CST13+1 DIAG WRAP BYTE 3536+* THREE PARAMETERS ARE NEEDED FOR THE EXECUTION OF THIS TU AND ARE: 
002FA3 3421 SNSE EQU CSTL6+1 SENSE OR STATUS BYTE 3537+* 2 
3422 COPY T7A50 23MAY78 3538+* 1. ONE BYTE OF FUNCTION-MODIFIER,IE, X*4&X' FOR DPC WRITE 
3423 T7A50 TUIT 1 3539+* 2. TWO BYTES OF DATA TO BE USED IN THE SECOND PART OF THE IDCB, 
3020 ao To SIO ilu og akoii ola aigkkaiciokioack0 6 FEB 6** geass - IE, X'0O005' TO BE SENT TO THE DEVICE. 
3425+% 1+* - 
34264+* TEST UNIT 3542+ THIS TEST UNIT PREPARES THE DEVICE AND EXPECTS AN INTERRUPT 
34974* 3543+* AND WILL SEND BACK THE CONDITION CODES OF THE I/O AND INTR. 
3428+* 3544+ 
34294* 3545+* CALLING SEQUENCE 
3430+* PURPOSE 3546+* 
34314+%* 354 7+4+* MDI=OTUXX,T7A03,2,0708, EQ, PLNG=6, PARM=FMXXXX? 
3432+ TEST THE CONFIGURATION RECORD FOR A FILE PRESENT AT THIS 3548+ - 
3433+ ADDRESS. 3549+ TURESUL BIT(S) O - 15........ OIO cc, INTR CC 
34344% 3550+# : 16- 235655082. INTERROPT STATUS BYTE 
3435+* CALLING SEQUENCE 3551+4+* * 24 ...... CYCLE STEAL STATUS IO/INTR ERROR 
34364+% 3552+* 3 32. = UB Vee -sic-e eres CYCLE STEAL STATUS WORD 4 
343 7+* MDI=O0TUXX,T7A50,1,80,0F* en . WB - 63....c005 CYCLE STEAL STATUS WORD 5 
+ ‘* 
3439+* TURESUL BIT(S) 0 -.w.eeeee FILE NOT ATTACHED 3555+* RETURN CONTROL 
3u404+* 3556+* 
Suu iss RETURN CONTROL ees B TURTN* RETURN TO MDI SUPERVISOR 
+ 
3443+4+* B TURTN* RETURN TO MDI SUPERVISOR Kise t ete tS Te SSL SST SS SSS TSS SSS SS SSS SSS SS CS CCS SSS SSCLSCSSCSCSSSCCCSSCOCSSC SSS SCT eT Ss 
34444* 003574 6FOD 2FBA 3560+T7A03 MVW R7,TURTN SAVE RETURN ADDRESS 
JUS + OR OR III IO IIS IOI IO III IIR II ok Ig kaka ak af ak ato 2 003578 4020 2F78 7A03 3561+ MVWI X*7A03", $TUID SAVE TU ID FOR DISPLAY 
0034E8 6FOD 2FBA 3446+T7A50 MVW R7,TURTN SAVE RETURN ADDRESS QO357E 4424 2F72 3562+ MVA OPTN1,R4 SET UP POINTER ADRS IN R4 
OO34EC 4020 2F78 7A50 3447+ MVWI X*9a50', $TUID SAVE TU ID FOR DISPLAY 003582 6E03 3252 3563+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/C BL 
O034F2 4424 2F72 S44 84 MVA  OPTN1,R4 SET UP POINTER ADRS IN R4 003586 3286 ee DC A (SERRS) ERROR ADRS FOR INVALID PREP 
+ 
0034F6 D025 18C8 3450 MVDZ TURESUL, RO CLEAR THE RESULTS AREA 003588 4224 18C8 3566 MVA TURESUL, R2 LOAD ADDR TURESULS BUFF IN REG 2 
OO34FA 4224 18c8 3451 MVA TURESUL, R2 LOAD RESULTS BASE REG. 00358C 4020 2F7A 0708 3567 MVWI X'0O708!',$IOIN INIT THE CONDITION CODES 
OO34FE 802B 350C 19D4 3452 CB NULL, DEVADD+4 TEST IF NO FILE ATTACHED 003592 6908 189A 3568 MVW TUPAPM1,R1 SET UP PARM ADRS 
003504 1801 3453 INE T7250X NO CONTINUE THIS MAP 003596 8118 35E4 3569 MVB aed Nes TIAO3L * AND SET IN FUNCTION-MODIFIER 
003506 4A4O 3454 TBTS (R2,0) SET NO FILE BIT ON 00359A 8028 19D0 35E5 3570 MVB EVADH, T7A03L41 * FOLLOWED BY THE DEVICE ADRS 
3455 T7ASOX TXIT * RESULTS AND EXIT 0035A0 8118 35E6 3571 MVB R1 +,f7A03L42 * AND SET IN EVEN BYTE DATA 
003508 6802 32E8 3456+T7A50X B $CONX RETUPN TO MDI CONTROLLER O0O35A4 8118 35E7 3572 MVB R1)+,T7AQ03L+3 * AND SET IN ODD BYTE DATA 
ZS 7 + KE III IO IC ROI I RO IR I IOI RI ok kak kkk ae ak ak ak akc ak 0035A8 D020 35E4 3573 MVD TA 3L,R0 GET FUNCTION, MODIFIER AND DEV ADRS 
00350C FFFF 3458 NULL DC X'FFFF? MASK FOR NULL ENTRY 3574 * * AND THE SECOND WORD OF THE IDCB 
3460 COPY fT7A01 OSJANT8 0035AC 680C 35E4 3575 IO T7AO3L ISSUE THE I/O COMMAND AND 
3461 T7A01 TUIT 1 0035B0 TJOAF 3576 CPLSR R5 * GFT THE I/O CONDITION CODE IN RS 
0 6 2 ISO IO IO IOC ig oi iakoigioigkiakak iaiiok tok tok 6 FEB 640 0035B2 356A 3577 SRL 13,R5 POSITION CC IN THE RESULTS FIFLD 
346 3+%* 0O35B4 C528 2F7A 3578 MVB R5,$101N * AND SAVE IT IN THE RESULTS 
3464+* TEST UNIT 0035B8 ODFF 3579 MVBI -1,R5 SET UP FOR DELAY 
3465+4+* O0O035RA 6002 3580 T7A03K SVC IDLE WAIT FOR INTERRUPT 
3466+* DIRECT PROGRAM CONTROL TEST UNIT 0035BC 4CA3 3581 TBTR oR IN) HAS IT COME Y 
3467+* 0035BE 1201 3582 ON 7A03M * YES, GET OUT OF DELAY 
3468+* PURPOSE 0035CO BDFC 3583 JCT T7A03K,R5 * NO, CHECK FOCR TIME OUT 
3469+% 0035C2 9028 2F7A 18C8 3584 T7A03M MVD $IOIN, TURESUL put ANY INTR COND CODE FOUND IN 
3470+* THREE PARAMETERS ARE NEEDED FOR THE EXECUTION OF THIS TU AND ARE 0035€8 C025 18CB 3585 MVBZ TURESUL+3, RO CLEAR BYTE 3 OF TURESULS BUFFER 
34714+* . 0035CC 6803 3142 3586 BAL XICCS, R6 GET CYCLE STEAL STATUS 
3472+ 1. ONF BYTE OF FUNCTION-MODIFIER,IE, X'60* FOR PREPARE 0035D0 35E0 3587 DC A (TO3ER) OTO ERROR 
3473+* 2. TWO BYTES OF DATA TO BE USED {nN THE SECOND PART OF THE IDCB, 0035D2 4C21 3588 TBT { 4, ER) EXCEPTION INTERRUPT OCCUR? 
3474U4+* - IE, X'0005! TO SELECT LEVEL 2 FOR AN INTERRUPT. OO035D4 1205 3589 JON O3ER YES - SET CSS INTR ERROR BIT ON 
34754 0035D6 9028 2FAO 18CC 3590 MVD CSTL5,TURESUL+4 MOVE CSS WORD 4 & 5 IN RESULTS 
3476+* CALLING SEQUENCE 3591 X7A03 TXIT * RESULTS AND FXIT 
34774* 0035DC 6802 32E8 3592+X7A03 B $CONX RETURN TO MDI CONTROLLER 
Te bee MDI=OTUXX,T7A01,2,0708, EQ, PLNG=6, PRAM=FMXXXX' Seeger ere Te eS ere SP Re Ree ee nee eee A Ne eT ae 
+ * 
3480+* TURESUL BIT(S) 0 - 15.....2.2..-OEO CONDITION CODE 0035E0 4A58 3595 IO3ER TBTS R2,24 CYCLE STEAL STATUS OITO ERROR 
Se ‘ ie ey eae ---SECOND WORD OF IDCB Q0035E2 SOFC Seae ‘: $7465 RETURN TO MDI 
+ 
steals RETURN CONTROL aeae : IDCB FOR DIRECT PROGRAM CONTROL COMMAND 
3485+%* B TURTN* RETURN TO MDI SUPERVISOR OO035E4 0000 3600 T7AO3L DC X*OO0008 FUNCTION-MODIFIER-DEVICE ADDRESS 
3486+* 0035E6 0000 3601 DC X'OO000! IMMEDIATE DATA BUFFER 
BY BT + 7 eR IOC III ICICI I ORC IOI ia ok I i i sec ak 3603 COPY T7A06 O9JAN78 
00350E 6FOD 2FBA 3488+T7A01 MVW R7, TURTN SAVE RETURN ADDRESS 3604 T7A06 TUIT 
003512 4020 2F78 7A01 3489+ MVWI X'F7A018 $TUID SAVE TU ID FOR DISPLAY 3 605 + 7 OR RO OO COR Ko oi oki k ioaiaaiok ac acct 6 FEB] 6x 
003518 4424 2F72 3490+ MVA OPTN1,R4 SET UP POINTER ADRS IN RU 3606+* 
3491+* 3607+* TEST UNIT 
00351C 4724 324A 3492 MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 3608+* 
003520 6014 3493 SVC CICB * CONNECT IT TO THIS DEVICE 3609+* ISSUE CYCLE STEAL COMMANDS 
003522 4020 2F7A 0708 3494 MVWI X'0O708',$I10IN INIT THE CONDITION CODES 3610+* 
003528 6908 189A 3495 MVW TUPARM1,R1 SET UP PARM ADRS 3611+* PURPOSE 
00352C 8118 3570 3496 MVB fais TIAOII * AND SET TN FUNCTION-MODIFIER 3612+* 
003530 8028 19D0 3571 3497 MVB EVADD,T7AO1I+1 * FOLLOWED BY THE DEVICE ADRS 3613+* TO RECALIBRATE, SEEK TO SPECIFIED CYLINDER, READ SECTOR ID, 
003536 8118 3572 3498 MVB R1)+,f7A011 42 * AND LOAD IMMEDIATE DATA 3614+* READ DIAG WORD 1, AND READ VERIFY. 
00353A 8108 3573 3499 MVB R1) ,T7A01143 * 3615+* 
00353E D020 3570 3209 ¢ MVD TA 11,R0 GET FUNCTION, MODIFIER AND DEV ADRS sole CALLING SEQUENCE 
+ 
003542 680C 3570 3502 Io T7AOIL ISSUE THE I/O COMMAND AND 3618+* MDI=$TUXX,T7A06,XX, XXXX,XX, PKNG=4, PARM=XXXX 
003546 7OAE 3503 CPLSR R5 * GET THE I/0 CONDITION CODE IN RS 3619+* : 
003548 356A 3504 SRL 13,R5 RIGHT-JUSTIFY CC AND SAVE IT 3620+* TURESULS BIT (S) Octo SENSE RYTE (STATUS 
00354A C528 2F7A 3505 MVB R5,$I0IN * IN THE RESULTS FIELD 3621+* e R 0 - 15 weaee TRACK ID (HD/CYL THIAG WORD 1 
00354E 3042 3506 SRL 8 fo POSITION FUNC/MOD IN RIGHTMOST BYTE 3622+* . 16 - 31 ..... CYCLE STEAL STATUS WORD 4 
003550 FO6F 3507 CBI X'6Ft,RO WAS A DEVICE RESET DONE? 3623+* 7 cae | if eee CYCLE STEAL STATUS WORD 5 
003552 1803 3508 JNE DLyp+4 NO ~- SKIP DELAY 3624+* 2 UB - 63 seca CYCLE STEAL STATUS WORD 11 
003554 ODFF 3509 MVBI -1,R5 SET UP DELAY COUNT 3625+* . GI = TD. er ssacese CYCLE STEAL STATUS WORD 12 
003556 6002 3510 DLYD svc  IpDLE DELAY 3626+* 
003558 BDFE 3511 JCT DLYD,R5 * 3627+* RETURN CONTROL 
00355A 3022 3512 SRL 4,RO POSITION FUNC IN RIGHTMOST BYTE 3628+* 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYPIGHT IBM CORP 1976 
36294* B TURTN* URN TO 003706 6E03 30D4 3744 BAL SHRTO EXECUTE SINGLESAMPLE PUSLE TEST 
3eS5c8 RT RESEND, he NDE SUPERVTOOR 00370A 3286 3745 DC SERES) ABORT TEST IF ERROR 
363 144 ORO IO OGIO IR OO IR IOI OK Of I iC ea ak keke ak 00370C 4CA1 3746 TBTR (aa A WAS THERE AN EXCEPTION INTERROPT? 

0035E8 6FOD 2FBA 3632+T7A06 MVW R7,TURTN SAVE RETURN ADDRESS 00370E 6E03 3142 3747 BAL Toes 6 GET CYCLE STEAL STATUS 
0035EC 4020 2F78 7A06 3633+ MVWI X'7A06', $TUID SAVE TU ID FOR DISPLAY 003712 3286 3748 DC aise Rs) ABORT ON ERROR 
0035F2 4424 2F72 3634+ MVA OpTN1, RA SET UP POINTER ADRS IN RG 003714 9028 2FAE 1820 3749 MVD Cc ro TUWORK+6 SAVF THE DIAG. SENSE BYTES 
0035F6 6E03 3252 3635+ BAL $CONC CLEAR DEV DEP STG AND CONNECT I/O BL OO0371A 4020 3244 0056 3750 MVWI xX!'0056',IOMOD LOAD MULTISAMPLE PULSE IDCB CMD WD 
OO35FA 3286 36 36+ Dc A CSRERS) ERROR ADRS FOR INVALID PREP 003720 6£03 30D4 3751 BAL $WRTO, RO EXECUTE MULTISAMPLE PUSLE TEST 
3637+* 003724 3286 3752 DC A (SERRS) ABOPT TEST IF ERROR 
0035FC 4Cé64 3638 TBTS gpa XE) SET EXPECTED ERROR CNTL BIT ON 003726 4CA1 3753 TBTR § 4, ER) WAS THERE AN EXCEPTION INTERRUPT? 
OO35FE 40O3F 189A 0001 3639 CWI 10601 , TUPARM1* WANT TO RECALIBRATE FILE? 003728 4020 3244 0057 3754 MVWI 10657", TOMOD LOAD WRAP BYTE IDCB CMD WD 
003604 1805 3640 INE CHK1 NO - CHECK FOR NEXT OP 00372B 6E03 30D4 3755 BAL SWRTO ré FETCH WRAP BYTE 
003606 6E£03 308E 3641 BAL $RECL,R6 RECALT BRATE FILE 003732 3286 3756 DC A (SERRS) ABORT TEST IF ERROR 
00360A 3286 3642 DC A (SERR 003734 4CA1 3757 TBTR f rt ER) WAS THERE AN EXCEPTION INTERRUPT? 
00360C 6802 36AC 3643 B SNSTS ae TO READ/STORE SENSE BYTE 003736 6E03 3142 3758 T7A88 BAL OCS, R6 GET CYCLE STEAL STATUS 
003610 403 189A 000 3604 * 09343; 3288 2FAE 1824 3423 ace A(SERRS) ok 10 aye THE te SENSE BYTES 
F A 0 3645 CHK1 Cwl X'0000" , TUPARM1* IS A SEEK OPERATION T E PERFOR ED? + ° Y 
003616 180A 3646 JNE  CHK2 NO — GO K OPERATION TO BE ID OP e 003742 8828 181A 18C8 3761 MVW TUWORK, TURESUL MOVE INTO TU RESULTS AREA 
003618 C825 2FFA 3647 MVWZ SKDCB LOAD SEEK CNTL WD IN DCB 003748 9028 181C 18CA 3762 MVD TUWORK+2,TURESUL+2 * 
00361C 8838 189C 2FFE 3648 MVW TUPARM2*,SKDCB+4 LOAD HD/CYL NUMBERS IN SEEK DCB O0374E 9028 1820 18CE 3763 MVD TUWORK+6,TURESUL+6 * 
003622 603 3086 3649 BAL SSEEK, R6 SEEK TO SPECIFIED CYL 003754 9028 1824 18D2 3764 MVD TUWORK+10,TURESUL+10 * 
00 36 26 3286 ae 3650 Dc A (SERRS) Boat ca ao ae 181C 0001 auee ee 10001", TOWORK+2 Coe ge oe ER ROR? 
AC B SNSTS BRANCH TO READ/STORE SENSE BYTE 
3652 * / 003762 C025 18D5 3767 MVBZ TURESUL+4+13,R0 CLEAR WRAP BYTE IF NO ERROR 
00362C 403F 189A 201C 3653 CHK2 CWI X'201C*, TUPARM1* WANT TO READ SECTOR ID? 3768 T7A89 TXIT 
003632 181D 3654 JNE CHK3 NO - GO TSSUE READ SECTOR ID OP 003766 6802 32E8 3769+T7A89 B $ X RETURN TO MDI CONTROLLER 
003634 4020 2FEA 201C 3655 MVWI X*201C",RSDCB LOAD READ SECTOR ID CNTL nD BT TO + RK KK HH HH HK eK HK 2 a a 2 KK KI i KK KKK KK kK Kk KK KK dk ok 
00363A 4020 2FF6 0004 3656 MVWI 4,RSDCB+12 LOAD BYTE CNT TO READ ONE 3772 COPY T7A09 O9JAN78 
003640 4020 2FEC 0000 3657 MVWL 0O,RSDCBt2 LOAD PHYSC# ZERO IN READ tD- DCB 3773 T7JAO9 TUIT 
003646 6E03 3096 3658 RDDID BAL SRDID, RO PEAD SECTOR ID Se entre ne ee nan E aren Meee eee eee eT yr Ten eRaors 
OO364A 3286 3659 DC A(SERRS * +* 
00364C 402B 2F80 F700 3660 T WI XPT G0) SCTID FLAG = 00 OR 04? 3776+* TEST UNIT 
003652 1009 3661 JOFF VRID YES - LOAD TRACK ID IN 'TURESULS! 3777+* 
003654 4029 2FEC 0001 3662 AWI 1,RSDCBt2 INCREMENT PHYSC# TO READ NEXT ID 3778+* ’ RANDOM SEEK TEST 
00365A 4O2F 2FEC 0021 3663 CWI 33, RSDCBt2 HAVE ALL IDS BEEN CHECKED? 3779+* 
003660 6800 36AC 3664 BE Ssysts YES - SAVE STATUS, RETURN TO MDI 3780+* PURPOSE 
003664 5SOFO 3665 J RDDID 3781+* 
003666 8828 2F82 18C8 3666 VRID MVW SCTID+2, TURESUL MOVE TRACK ID TO TU RESULTS BUFF 3782+* TO VERIFY THAT ALL THE CYLINDERS CAN BE ACCESSED. 
00366C 501F 3667 J SNSTS GO GET CS STATUS 3783+* 
3668 * 3784+* CALLING SEQUENCE 
00366E 4O3F 189A 0011 3669 CHK3 CWI X'0011", TUPARM1* WANT TO RD VERIFY REC? (AUTO SK EN) 3785+%* 
003674 180C 3670 JNE CHKY NO - GO TSSUE READ DIAG WORD 1 OP 3786+* MDI=$TUXX,T7A09,01,E0, OF 
003676 4020 301A 0011 3671 MVWI X'0011",VRDCB LOAD RD VERIFY CNTL WD (AUTO SK EN) 3787+* ° 
00367C 8838 189C 301E 3672 MVW  TUPARM2*,VRDCB+4 LOAD HEAD/CYL#'S IN DCB 3788+* TURESUL BIT(S) O-7 ......-. SENSE BYTE (STATUS) 
003682 C825 301C 3673 MVWZ VRDCBt2,R0 SETUP PHYSICAL SECTOR# O IN DCB 3789+* - B weeeeeee SEEK FAILURE 
003686 6803 30c4 3674, BAL $SRDVY,RO READ VERIFY RECORD 3790+* . 9 seeeeee- 62PC INTERFACE ERROR 
00368A 3286 3675 DC a (SERRS) 3791+* = (BUS PARITY OP PARITY ERROR) 
00368C 500F 3676 J SNSTS GO GET CS STATUS 3792+* ° 10 ..e22.+--. READ ID FAILURE 
3677 * 3793+ : 16-31 ....e--- ACTUAL TRACK ID 
00368E 4020 302A 2088 3678 CHK4 MVWI X*'2088*,RDDCB LOAD READ DIAG WORD 1 DCB CNTL WD 3794+ : 31-47 ...2eee- EXPECTED TRACK ID 
003694 4020 3036 0002 3679 MVWI 2,RDDCB+12 LOAD BYTE CNT TO READ DIAG WD 1 3795+* . 48-63 ...-+-2-- DIAG. SENSE BYTE 1,2 
00369A 4020 3038 3484 3680 MVA RGBUF, RDDCB+ 14 SETUP ADDRESS RDBUF IN DCB 3796+* . 64-71 w~.e+0e+-e- DIAG. SENSE BYTE 3 
003640 62803 30B0 3681 BAL $RD,R6 RFAD DIAG WORD 1 3797+%* 
0036A4 3286 3682 DC A (SERRS) ABORT TEST IF OIO ERROR 3798+* RETURN CONTROL 
0036A6 8828 34E4 18C8 3683 MVW RGBUF, TURESUL MOVE DATA IN WD 1 TO TURESULS BUF 3799+* 
0O036AC 6E03 3142 3684 SNSTS BAL XIOCS, R6 GET CYCLE STEAL STATUS 3800+* B TURTN* RETURN TO MDI SUPERVISOR 
0036B0 3286 3685 DC A (SERR$) ABORT TEST IF ERROR 3801+* 
0036B2 403B 189A 2000 3686 TWI X¥*° 2000", TUPARM1* WAS A READ OP JUST EXECUTED? 3JBO DHMH RK KK HK KK KK KK KK RK kK GI kK lok lok OR Kk io ak ok kK koko kak 2k 
0036B8 1205 3687 JON X7A06 YES - MOVE CS STATUS WDS TO T OO376A O6FOD 2FBA 3803+T7A09 MVW R7,TUPTIN SAVE RETURN ADDRESS 
0036BA 8028 2FA3 18C8 3688 MVB  CSTL6+1,TURESUL MOVE SENSE (STATUS) IN 'TURESUL' OO376E 4020 2F78 7A09 3804+ MVWI X'7A09", $TUID SAVE TU ID FOR DISPLAY 
0036C0O c025 18cC9 3689 MVBZ TURESUL4+1,R0 SET BYTE TO ZERO 003774 4424 2F72 3805+ MVA OPTN1,R8 SET UP POINTER ADRS IN R4& 
0036C4 9028 2FAO 18CA 3690 X7A06 MVD CSTL5,TURESUL+2 MOVE CS STATUS WORDS 003778 6E03 3252 3806+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
0036CA 9028 2FAE 18CE 3631 MVD CST12, TURESUL+6 WeSpt ts 12 «20 'TORESULS! 00377C 3286 S80 74. DC A (SERR$) . ERROR ADRS FOR INVALID PREP 
0036D0 6802 32E8 3693+ $CONX RETURN TO MDI CONTROL 00377E C825 18C8 3809 MVWZ TURESUL, RO CLEAR TU RESULTS BUFFER 
JOO U + CIO IO OR IORI I II OK a tak tok tok ik ako ak tak atc 003782 4224 18C8 3810 MVA TURESUL, R2 PUT ADDR OF TU RESULTS BUFFER IN R2 
3696 COPY fT7A08 O9JAN78 003786 4020 2FEA 201C 3811 MVHI xX'*201C",RSDCB LOAD READ SECTOR ID DCB CNTL WD 
3697 T7A08 TUIT 00378C 4020 2FF8 2F80 3812 MVA SCTID, RSDCB+ 14 LOAD ADDR WHERE ID IS TO BE STORED 
3698 +2 AO OCG Ro cick 06 FEB 64#* 003792 C825 2FFA 3813 MVWZ SKDCB,RO LOAD SEEK DCB CNTL WORD 
36994+% 003796 4020 2FFE 0567 3814 MVWI X'0567",SKDCB+4 LOAD HEAD/CYLINDER PARM IN SEEK DCB 
3700+* TEST UNIT 00379C 4020 3848 0167 3815 MVWI 359 eTRENO INITIALIZE CYLINDER WORK PARAMETER 
3701+ O037A2 4C64 3816 TBTS ged ED SET EXPECTED ERROR IND ON 
3702+* STORE ERROR HALT CODE, STATUS, AND SENSE BYTES 0037A4 6£E03 3086 3817 SEKK1 BAL SEEK 6 SEEK TO SPECIFIED CYLINDER 
37034 0037A8 3286 3818 DC A (SERRS * 
3704+* PURPOSE OO37AA 6203 3142 3819 BAL XIOCS,R GET CYCLE STEAL STATUS 
3705+* OO37AER 3286 3820 DC A (SERRS) ABORT TEST IF ERROR 
3706+* TO coe gene STORE THE DIAGNOSTIC SENSE BYTE AND DIAG SENS® 0037B0 8028 2FA3 18C8 3821 MVB C aoe oorre STORE SENSE BYTE IN TURESUL 
3707+* BYTES INTO THE TU WORK AREA (*TUWORK'). ALSO STORE ANY 0037B6 402B 2FA2 0008 3822 TWI X¥'0008',CSTL6 IS THE ‘SEEK INCOMPLETE! BIT ON? 
3709+* ERROR CODE PASSED TO THIS TU. 0037BC 1235 3823 JON SKER YES - SET EEK FAILURE' IND ON 
3709+ 0037BE 402B 2FA0 0001 3824 TWI X*0001"',CSTL5 '62PC THTERFACE ERROR! BIT ON? 
3710+* CALLING SEQUENCE 0037C4 1233 3825 JON INTFC YES - SET BIT ON LN *TURESULS! 

s 37114+# 0037C6 8828 2FFE 2FEE 3826 MVW SKDCB+4, RSDCB+4 LOAD HD/CYL# IN READ SECT ID DCB 
3712+* FETCH SENSE AND SENSE BYTES 1,2,3 FROM THE DISK UNIT 0037CC C825 2FEC 3827 MVWZ RSDCBt 2;,R0 LOAD PHYSC# ZERO IN READ SECT ID DCB 
3713+* LOAD SENSE BYTES INTO MAIN stT6é AND SAVE. STORE ERROR HALT CODE 0037D0 4C64 3828 NXTID MTBTS serene SET EXPECTED ERROR IND ON 
3714+%* IF ANY. 0037D2 6803 3096 3829 BAL RDL 6 READ SECTOR ID 
37154 : 0037D6 3286 3830 DC R(SERAS * 
3716+ MDI=$TUXX,T7A08,,,,PLNG=1,PARM=C (C=HALT CODE) 0037D8 6E£03 3142 3831 BAL XLOCS GET CYCLE STEAL STATUS 
3717+* 2 0037DC 3286 3832 DC A (SER $) ABORT TEST IF ERROR 
3718+ TOWORK BITS O-7eccucececce ..ERROR HALT CODE 0037DE 8028 2FA3 18C8 3833 MVB CSTL6+1, TURESUL STORE SENSE BYTE IN 'TURESUL' 
3719+* he GS-15. 005. : 22 ee STATUS BYTE 0037E4 402B 2FA0 0001 3834 TWI X'0001",CSTL5 '62PC INTERFACE ERROR BIT ON? 
3720+* : 16-31.....20-2-2--SINGLE SHOT SENSE BYTES 16 2 OO37EA 1220 3835 JON INTFC YES - SET BIT ON IN 'TURESOLS! 
3721+* . Foc (2 ea ee SINGLE SHOT SENSE BYTE 3 OO37EC 402B 2F80 F700 3836 TWI X'*F700*,SCTID FLAG = OO OR O04? 
3722+* . WO-U7......<..0...NOT USED 0037F2 1009 3837 JOFF CHKID YES - CHECK THE HEAD/CYL#'S IN ID 
3723+* e U8-63...-4 acoeveee MULTISAMPLE SENSE BYTES 15 2 OO37F4 4029 2FEC 0001 3838 AWL 1,RSDCBt2 SET PHYSC# IN DCB TO NEXT SECT ID 
3724+% : 64-78. .eceeccewee -MULTISAMPLE SENSE BYTE 3 6 O0O037FA 402F 2FEC 0021 3839 CWI 33, RSDCB+2 HAVE ALL SECTOR ID'S BEEN CHECKED? 
ert a a33ege S58 289 1 ees 5 spa Geta Sunde ep ns TEC 
3127+% RETURN CONTROL 903806 88 2B 2FFE 2F82 3842 CHKID CW SKDCB+4 SCTID+2 HEAD/CYLINDER IN ID AS EXPECTED? 

+ NO ~ SET ID FAILURE BIT ON 
3129+% B TURTN* RETURN TO MDI SUPERVISOR boson Sot 3848 0001 Bene hes vg BNO fo gt oT ETE DERS BEEN ACCESSED? 
37 3 14 RO OR IRI IOI III IO IOI I IOI RII Ok ICO kok aig: acai ok 003816 1BO04 3846 JNEV TRKOD NO - Sen HELE CV THE TO BE ACCESSED 
0036D4 6FOD 2FBA 3732+T7A08 MVR R7, TURTN SAVE RETURN ADDRESS 003818 A829 3848 2FFE 3847 SW TRKNO,SKDCB+4 * AND GO SEEK TO THAT CYLINDER 
0036D8 4020 2F78 7A08 3733+ MVWI X'7A08', STUID SAVE TU ID FOR DISPLAY 00381E 50C2 3848 J SEKK1 * 
O0O36DE 4424 2F72 3734+ MVA OPTNI. 4 SET UP POINTER ADRS IN R4 003820 A828 3848 2FFE 3849 TRKOD AW TRKNO,SKDCB+4 * 
ga3eke $B0a 2252 nme lt SHEBE REDSTEGAERVALDOCEREES? "70 >= B38H33 EEE 3639 oxen fons ("A Sen vex 
ID PREP SEEK FAILURE! BI 
0036E8 8038 189A 181A 3333** MVB ‘TUPARM1* ,TUWORK SAVE 903820 ra49 3825 INTFC TBTS 746s ; es 
; ERROR HALT CODE R SET "62PC INTFRF ' 
0036EE 6803 3142 3739 BAL XTOCS » RG GET CYCLE STEAL STATUS 00382E 5007 3854 J 5569) pee n wanoe. Gand N 
0036F2 3286 3740 pc SERR$S) ABORT ON ERROR 003830 4GA4A 3855 IDER TBTS R2 10) SET "TRACK ID FAILURE* BIT ON 
OO36F4 8028 2FA3 181B 3741 MVB e TL64+1,TUWORK+1 SAVE THE SENSF IN TUWORK 003832 8828 2F82 18CA 3856 MVW cTip+ ,TLURESUL+2 STORE ACTUAL TRK ID READ FROM FILE 
OO36FA 9028 2FA0O 181C 3742 MVD CSTL5 ThWORK+t2 SAVE THE STATUS WORDS 003838 8828 2FFE 18CC 3857 MVW SKDCBt4, TURESUL+4 STORE EXPECTED TRK ID 
003700 4020 3244 0055 3743 MvWr xX'0055*, TOMOD LOAD SINGLESAMPLE PULSE IDCB CMD WD 00383E 9028 2FAE 18CE 3858 X7A09 MVD CST12, TORESUL+6 STORE DIAG. SENSE BYTES 
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I7A20 --- CHANNEL/4963 DISK UNIT P/N=8327653 EC=375222 PAGE 15 I7A20 --- CHANNEL/4963 DISK UNIT P/N=8327653 EC=375222 PAGE 175A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3859 TXIT 0038F4 50D8 3975 J TSKK1 
003844 6802 32E8 3860+ B $CONX RETURN TO MDI CONTROLLER 0038F6 D020 391C 3976 CHKTM MVD TSEEK,RO GET ACCUMULATE SUM OF ACCESS TIMES 
386.1 + RCO IC OOO OOK OR IORI OO OI I OR I I iI IOI i Rak kkk ak kak ak ak ic aka ak OO38FA E82A 34DE 3977 DD D100,80 DIVIDE BY THE NUMBER OF SEEKS 
3862 * 0038FE 7906 6978 3978 CWI 27006,R1 CHECK AVERAGE ACCESS TIME < 27MS 
003848 0000 3863 TRKNO pC Ate. *) WORK CONSTANT 003902 1707 3979 JLLT X7A11 RETURN TO MDI IF CORRECT 
3865 ee T7 OO9JANT8 003904 4224 18C8 3980 U7A11 MVA TURESUL, R2 PUT ADDR OF TU RESULTS BUFFER IN kK2 
3866 T7A10 TUIT 003908 4A4O 3981 TBTS {Re 0) SET INCORRECT SEEK TIME BIT ON 
3 B67 48 RR IIR IC IG I gakiick ik ioick tok) 6 FER 7 6 * 00390A 5003 3982 J TAA GO STOPE CSS PEFORE EXITING 
3868+* 00390C 402C 18C8 4000 3983 STSER OWI X'*4000', TURESUL SET FILE STATUS ERROR BIT ON 
3869+* TEST UNIT 003912 9028 2FAO 18CA 3388 X7A11 BVD CSTLS, TURESUL+2 STORE CS STATUS WDS & & 5 IN TU AREA 
+ 
3871+* ERROR HALT CODE/DIAG SENSE BYTE CHECK 003918 6802 32E8 3986+ B SCONX RETURN TO MDI CONTROLLER 
3872+* 3 BT HH HA HH HH eH He eK eK HK 8 2 3 He He 2K ae 2 2 3c i aK i kc i 2 aK Kk ok ok ik ok ok koko kK kok kK Kk KK kkk 
3873+* PURPOSE 3988. * 
3874+* 00391C 00000000 3989 TSEEK DC 2A (*-*) ACCUMULATED SEEK TIME BUFFER 
3875+* TO MOVE THE ERROR HALT CODE, STATUS BYTE, AND DIAG BYTES 1,2 3 3991 COPY T7A12 O9JANT78 
3876+* TO THE TU RESULTS BUFFER (TORESUL) . 3992 TIA12 TUIT 
38774+* BQO Ft KKK MK KK HMR KH KK KEK KKK HK RH KK KK KKK KK KK KKK KKK KK KKK KK KK KO G FEB] 6* * 
3878+* MDI=$TUXX,T7A10,01,0708, EQ 3994+ 
3879+ 3995+* TEST UNIT 
3880+* TURESUL BIT(S) «eee-eee- ERROR HALT CODE 3996+* 
3881+* y Pees ema e-~- STATUS (SENSE) BYTE 3997+* DISK SPEED CHECK 
3882+% Z 16"23 esac iecans SINGLE SHOT BYTE 1 (5-HURSLEY 3998+* 
3883+ : PU=31 wsiccax - SINGLE SHOT BYTE 2 (6-HURSLEY 3999+* PURPOSE 
3884+* . 32-39 2.2.6 e-- SINGLE SHOT BYTE 3 (7-HURSLEY 4000+* 
38854 : iBs5G 27. - NOT USED GOO 1+* TO VERIFY THAT THE DISK SPEED IS WITHIN 2.5% OF THE NOMINAL 
3886+% J 56-63 w..cea0e MULTISAMPLE BYTE 1 (5-HURSLEY 4O02+* DISK SPEED (3125 RPM). 
3887+ 2 GAAT 1 asco osu MULTISAMPLE BYTE 2 (6-HURSLEY 4O03+* a 18720 US <= 1 DISK REVOLUTION <= 19680 US 
3888+ Z 12=79 wesc caw d MULTISAMPLE BYTE 3 (7-HURSLEY 4OO4+* 
3889+ Z B0-87 ccccce ~.- WRAP BYTE 4005+* CALLING SEQUENCE 
3890+%* 4O06+* 
389 1+* CALLING SEQUENCE peas MDI=$TUXX, 'T7A12,01,80,0F! 
+ e 
3893+ MVW TUWORK, TURESUL MOVE ERROR HALT CODE §& STATUS BYTES 4009+* TURESOL. BIT: 0 .wsseu sees --- INCORRECT DISK SPEED 
3894+ MVD TUWORK+6 ,TURESUL+2 SINGLE SHOT BYTES 1, 2, AND 3 4010+* Sid aeons »eee- CYCLE STEAL STATUS ERROR 
3895+ MVD TUWORK+10, TURESUL+6 MULTISAMPLE BYTES 1, 2, AND 3 4Q011+* RETURN CONTROL 
3896+* AND WRAP BYTE 4012+* 
389 7+* RETURN CONTROL eee B TURTN* RETURN TO MDI SUPERVISOR 
+ 
38994 B TURTN*X RETURN TO MDI SUPERVISOR DON eey a at ae ea er ee eee eee te ee terre ey ene 
3900+* 003920 6FOD 2FBA 4O164+T7A12 MVW SAVE RETURN ADDRESS 
See ee ea re a eee eee nee sees 003924 4020 2F78 7A12 4O17+ MVWI ei STUID SAVE TU ID FOR DISPLAY 
OO384A 6FOD 2FBA 39024+T7A10 MVW SAVE RETURN ADDRFSS 00392A 4424 2F72 4018+ MVA OPTH 1,R4 SET UP POINTER ADRS IN RU 
00384F 4020 2F78 7A10 3903+ MVWI Rg TURIN $STUID SAVE TU ID FOR DISPLAY 00392E 6803 3252 4019+ BAL $SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
003854 4424 2F72 3904+ MVA OPTN1, RA SET UP POINTER ADRS IN R4 003932 3286 4020+ DC A (SERR$) ERROR ADRS FOR INVALID PREP 
003858 6803 3252 3905+ BAL $CONC, CLEAR DFV DEP STG AND CONNECT I/0 BL 4O21+* 
00385C 3286 3906+ DC A SEERS) ERROR ADRS FOR INVALID PREP 4022 * 2 15 eccceewecceee NOT USED 
390 74% 4023 * 16 - 47 wceeaeeee eee CYCLE STEAL STATUS WDS 4 AND 5 
00385E 9028 181C 18D2 3908 MVD TUWORK+2,TURESUL+10 MOVE ERROR WORDS 4O24 x 
003864 8028 1827 18CD 3909 MVB  TUWORK+13,TURESUL+5 |= MOVE WRAP CHECK RESULTS 003934 D025 18C8 4025 MVDZ TURESUL, RO CLEAR RESULTS BUFFER 
3910 TXIT 003938 C825 18CC 4026 MVWZ TURESUL+t4,R0 CLEAR RESULTS BUFFER 
00386A 6802 32E8 3911+ B SCONX RETURN TO MDI CONTROLLER 00393C 4020 3244 OO5A 4027 MVWI X'OO5A', TOMOD LOAD DISK SPEED TIMG DIAG IDCB F/MOD 
39 124+ RR I ICCC IC I I I IGRI I RICK a ici ace ak 003942 6E03 30D4 4028 BAL SWRTO, RO EXECUTE DISK at TIMING DIAG 
3914 COPY T7A11 OSJANT78 003946 3286 4029 DC A (SERRS) ABORT TEST IF ERROR 
3915 T7A11 TUIT 003948 6E03 3142 40 30 BAL XLOCS,R6 READ CYCLE STEAL STATUS 
39 16 + RR RR RIO RIOR IR CI IO I I ROK I a kok ak dtock 0 6 F EB 7 6 * 00394C 3286 4031 DC A (SERRS) ABORT TEST IF ERROR 
390174+* 00394E 402B 2FA0 0008 4032 TWI X¥*0008',CSTL5 WAS THERE A CS STATUS ERROR? 
39198+* TEST UNIT 003954 1212 4033 JON CTSRR YES —- SET RESULTS BIT ON 
3919+ 003956 6803 3494 4034 BAL TMDIG, R6 CALC SPEED OF DISK VIA CAP FORMULA 
3920+ SEEK SPEED CHECK 00395A E82A 3982 4035 DD D20,R0 DIVIDE BY DECIMAL 20 
39214 00395E 7906 4920 40 36 CWI 18720,R1 CHECK THAT SPEED IS WITHIN BOUNDS 
3922+* PURPOSE 003962 1703 4037 JLLT TMERR * AND SET ERROR BIT ON IN *TURESUL! 
39234 003964 7906 4CEO 4038 CWI 19680,R1 * IF DISK SPEED IS INCORRECT 
39 24+% TO VERIFY THAT THE AVERAGE ACCESS TIME OF MULTIPLE SEEKS WHICH 003968 1603 4039 JLLE X7A12 RETURN TO MDI 
3925+* INCLUDE 1 AND 359 TRACK LENGTH SFEKS IS < 27 MS (27000 US). 00396A 4224 18C8 4040 TMERR MVA TURESUL, R2 PUT ADDR OF RESULTS BUFFER IN R2 
3926+* 100 SEEKS ARE TIMED. 00396E 4A4O 4041 TBTS Re 0) SET "INCORRECT DISK SPEED! BIT ON 
3927+* 003970 9028 2FAO 18CA 4042 X7A12 MVD STLS, TURESUL+2 STORE CS STATUS WD 4 & 5 IN TU BUF 
3928+* CALLING SEQUENCE 4O43 TXIT 
3929+ 003976 6802 32E8 UOuUK+ SCONX RETURN TO MDI CONTROLLER 
3930+* MDI=$TUXX, 'T7A11,01,80,0F! Toe ey ee eee, ee eee ere ey ee ees re een CON 
3931+* 
3932+* TURESUL BIT{(S) 0 22 sseweces INCORRFCT SEEK SPEED 00397A 402C 18C8 4000 4O47 CTSRR OWI X¥*4000', TURESUL SET CS STATUS ERROR BIT ON 
3933+* ; Te seteteet wie- ore CYCLE STEAL STATUS ERROR 003980 50F7 4048 J X7A12 
3934+ ‘a 2215. ots cece -- NOT USED “OU * 
3935+* Ps IGA. Gai we sce se CYCLE STEAL STATUS WORDS 4 AND 5 003982 0014 4050 p20 X'OO0T4! DECIMAL 20 CONSTANT 
3936+ 4052 COPY fT/7A19 28MAR78 
3937+* RETURN CONTROL 4053 T7A19 IT 
3938+* Ub SU HR HH HH HR A I I RH I Ke Ra a a a a aK IK KK KK KOK KEK KOG FEB 6 ** 
3939+* B TURTN* RETURN TO MDI SUPERVISOR 4055+ 
3940+ 4056+* TEST UNIT 
BOM 14 ea I IO IO I OI CI IR IGOR OI OK ak CK Rokk a kak ak tok ok do ok 4QS57+* 
00386E 6FOD 2FBA 3942+T7A11 MVW R7, TURTN SAVE RETURN ADDRESS 4058+* FILE DIAGNOSTIC WRAP TEST 
003872 4020 2F78 7A11 3943+ MVWI X'7A17" $TUED SAVE TU: ID FOR DISPLAY 4Q594+% 
003878 4424 2F72 3944+ MVA OpTNt, Rh SET UP POINTER ADRS IN RY 4060+* PURPOSE 
00387C 6E03 3252 3945+ BAL $CONC, CLEAR DEV DEP STG AND CONNECT I/0 BL 4O61+* 
003880 3286 3946+ DC A (SERRE) ERROR ADRS FOR INVALID PREP 4O62+* LOAD LOW ORDER CYLINDER NUMBER OF FCB WITH PATTERN 
3947+* 4O063+* BY DOING A RECALIBRATE WITH THE PATTERN IN THE DCB. 
003882 D025 391C 3948 MVDZ TSEEK CLEAR ACCUM ACCESS-TIME WORK AREA 4O64+* WRITE TO CAP SEEK REQUIRED ADDRESS REGISTER DIRECT. 
003886 p025 18C8 3949 MVDZ TORESOR, RO CLEAR TU RESULTS BUFFER 4065+* CHECK FOR NO ERRORS. SENSE FILE DIAGNOSTIC WRAP AND CHECK 
00388A C825 18CC 3950 MVWZ TURFESUL+4,RO CLEAP TU RESULTS BUFFER 4O66+* FOR NO ERRORS. PATTERNS USED ARE FF, AA, 55, AND OO. 
00388E 4020 2FFA 000B 3951 MVWI X'000B', SKDCB LOAD TIMED SEEK DIAG DCB CNTL WD 4067+ VERIFY PATTERN READ IS AS WRITTEN. 
003894 4020 2FFE 0567 3952 MVWI X'0567",SKDCBE4Y LOAD HEAD/CYLINDER PARM IN SEEK DCB 4Q068+* 
00389A 4020 3848 0167 3953 MVWI 359,TRKKO INITIALIZE CYLINDER WORK PARAMETER 4069+* CALLING SEQUENCE 
0038A0 4020 3062 0064 3954 MVWI 100,CTRO3 INITIALIZE SEEK COUNTER 4O70+* 
0038A6 6E£03 308E 3955 TSKK1 BAL $RECL, R6 RECALIBRATE 4O71+* MDI=$TUXX,'T7A19,02,00,EQ' 
OO0O38AA 3286 3956 DC A (SERRS) ABORT TEST IF ERROR 40 72+* : 
0038AC 6803 3086 3957 BAL $SEEK,R EXECUTE TIMED SEEK DIAG 4073+* TURESULS BIT(S) O ......... WRAP FAILURE DATA MISCOMPARE 
0038B0 3286 3958 DC A (SERRS) ABORT TEST IF ERROR 4O74+* . 1) Seeder elaine ERR ON WRT SEEK REQD ADDR REG 
0038B2 6E03 345C 3959 BAL VSEFK,R READ SECTOR ID 4Q75+* ‘ 2 e«eeee-e-- ERROR ON READ DIAG WRAP 
0038B6 882B 2F82 2FFE 3960 CW SCTID+2,SKDCB+t4 ACCESS AS EXPECTED? 4O76+* ‘ Bo) ecekecae rare DISK UNIT PARITY FAELURE 
0038BC 6801 3904 3961 BNE U7A11 ABORT TEST IF SEEK ERROR 4QO77+* & EL oui se eae CS STATUS ERROR (BIT 12-WORD 4) 
0038CO 6803 3142 3962 BAL XIOCS, R6 FETCH DIAG SENSE BYTES 1 AND 2 4Q78+* : D scces eee- CS SaEeue IO/INTERRUPT ERROR 
0038C4 3286 3963 DC A (SERP$) ABORT TEST IF ERROR 4O79+* . eee ee eee NOT US 
0038C6 402B 2FA0 0008 3964 TWI X'0008!',CSTL5 WAS THERE A CS STATUS ERROR? 4080+* . Boos JED). Sate er arse oe DATA PATTERN IN USE WITH ERROR 
0038CC 121F 3965 JON STSER FILE STATUS ERROR OCCURRED 4081+* MGs nT es ate ess CYCLE STEAL STATUS WORDS 4 §& 5 
O038CE 6EF03 3494 3966 BAL TMDIG,R6 CALCULATE TIME OF SEEK 40 82+* - 48 - 55 .-seeeeee BYTE 2 OF CSS WORD 12 (WRAP BYTE) 
0038D2 DO2E 391C 3967 AD RO, TSEEK ADD TIME TO SUM IN BUFFER 4O83+* 
0038D6 4O02E 3062 0001 3968 SWI 1,CTRO3 HAVE 100 ACCESSES BEEN TIMED? 4084+* RETURN CONTROL 
0038DC 190C 3969 INP CAKTM YES - CALC AVEARAGE ACCESS TIME 4O85+4+* 
O038DE 402F 3848 0001 3970 SWI 1,TRKNO ADJUST CYL# FOR NEXT TIMED ACCESS 4086+* B TURTN* RFTURN TO MDI SUPERVISOR 
0038E4 1B04 3971 JNEV ODTRK * AND GO SEEK TO THAT CYLINDER 4087+* 
OO38E6 A829 3848 2FFR 3972 SW TRKNO,SKDCB+4 * HER tet eT eT SST SS SSS SS SS SSS SSS. SSS SSS SSS SSS CS SSC SCSSCCOCSCLCCSLSCSCoL CSL SSS eS te et 
0O038FC 50DC 3973 J TSKK1 x 003984 6FOD 2FBA 40894+T7A19 MVW R7 TURTN SAVE RETURN ADDRESS 
OO38EE A828 3848 2FFE 3974 ODTRK AW TRKNO, SKDCB+4 * 003988 4020 2F78 7A19 4090+ MVWI X'4110', $TUID SAVE TU ID FOR DISPLAY 
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2065 CICB OLUTE. HEX VALUE (00000014) 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
3CLARED NAME ATTRIBUTES AND REFERENCES 
00398E 4424 2F72 4091+ MVA  OPTN1,R4 SET UP POINTER ADRS IN R4 DE 
003992 6E03 3252 4092+ BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BL en saava eee een Sore ren eet eee Saas 
sees igus De A CGERES) eae Ole ia oe 2203 wake und Eocaseoe coBspaznep tan token eees0 LENORE CH 
URESUL, RO CLEAR TU RESULTS BUFFER CONX i 
8o399¢ D038 1acc 4096 HVDZ TURESULSH , RO CLEAR TU RESULTS BUFFER oc 9 fape ees seeee Sere. Bie 3b60" 3911 (3986 4ohy 
§03948 4050 3066 0006 1098 MVEUT © Gy LBCNT’ SET UP LOOP COUNT ; 3278 SERRS ADDRESS. HEX LOCATION (00003286) IN CSECT(I7A20 |) LENGTH (6) 
0039AA 6908 3066 4099 DPAT2 MVW LPECNT,R1 * 3366 3564 3636 3642+ 3650 3659 3675 ©3682 3685 
0039AE 6B28 3068 4100 MVW R1,PDATA) , R3 GET PATTERN TO BE WRITTEN 3736 3740 3745 3748 3752 3756 3759 3807 3818 
0039B2 C328 2FDF 4101 MVB 3 ,CLDCB+ SETUP LOW ORDER CYL# With PATTERN aoe toon nee Tepe BIOS Ri ak. Bae 
5039nR 3286 1405 De. RISERRS) FCR. ABORT TEST IF OIO ERROR 2026 SINTL ADDRESS; HEX LOCATION (00002FB8) IN CSECT(I7A20 ) LENGTH (2) 
2? 
Q039BC 4C21 40 08 ee a) eee RED BLORe 1991 $IOIN ADDRESS. HEX LOCATION (OOQO2F7A) IN CSECT(I7A20 |.) LENGTH (2) 
0039C2 C328 18C9 4106 MVB R3,TURESUL+1 MOVE PATTERN TO TURESULS 2345 3007 3067 3147 3184 3247 3494 3505 3516 
0039C6 4020 3244 0052 4107 Mvwr  x*6052") TOMOD SETUP SEEK REOD ADDR DIRECT IDCR see eae Deineee ae ene eaUOOOUSETC)-AWCoeeaeriaGs heat 
0039CC 6B03 30D4 4108 BAL SURTO) RE WRITE TO SFEK REQD ADDR REG DIR sADDRESS- HE) LOCATON (00002 
039D2  aCOt 41146 TET (HA eER) EXCEPTION INTERRUPT OCCUR? 1976 $LE ABSOLUTE, HEX VALUE (00000026) 
$333Re 4620 3244 0057 = 4142 NVI {* 0057" ,TOHOD SENSE PILE DIAG WRAP BYTE 2324 SRD SADDRESS. HEX LOCATION (000030B0) IN CSECT(I7A20 ) LENGTH (2) 
posen0 69588 11a De. R(SERRS) RBORT TEST TP O10 ERROR 2316 $RDID ADBRESS, HEX LOCATION (00003096) IN CSECT(I7A20 ) LENGTH (6) 
? 
0039E2 4c?) a ee eels) Bee Een eco ba Rene OTe ON 2331 $RDVY ,RDDRESS. HEX LOCATION(000030C4) IN CSECT(I7A20 ) LENGTH (6) 
O READ WRAP BYTE 
90398 2908 3066 1148 CKPAT MvW LPCNT, RA GER EY THAT DATA PATTERN READ 2313. $RECL ADDRESS. HEX LOCATION (0000308E) IN CSECT(I7A20 ) LENGTH(6) 
0039EC 6B28 3068 4119 MVW (RU ,BDATA) , R3 IS AS WRITTEN (CHECK WRAP BYTE) paAn ee J RDDRESS. HEX LOCATION (00003086) IN CSECT(I7A20 ) LENGTH(6) 
bosged. iB0a 1134 SK aT? SET BIT ON IN TURESUL IF DATA ERR 3649 3817 | 3957 
OO39re 4O2E 3066 0002 4132 BHT RLBCNT DECREASE LPCNT TO GET NEXT PATTERN 1990  $TUID ADDRESS. HEX LOCATION (00002F78) IN CSECT(I7A20 |) LENGTH (2) 
0039FC 1AD6 4123 INN DpaT2 NO 7 CONTINUE TEST ss rp NO ERRS 2036 3302 3340 3447 3 3 3633 37 
O039FE C025 18C9 Nao e autem. ECU Tene TEGUGN MeL DE ; 2337 © $WRTO ADDRESS. HEX LOCATION (000030D4) IN CSECT(I7A20  ) LENGTH(4) 
003A02 6802 32E8 4126+X7A16 B SCONX RETURN TO MDI CONTROLLER 3744 3751 3755 4028 jacas ae A 
6127 4 I IC IORI RII RI RO IOI RC 2 I ICR aR aR A kkk 2 ak a a ae a ak 2k 2c 2k ok 2358 SWRI1 Be a HEX LOCATION (00003114) IN CSECT(I7A20 ) LENGTH (2) 
4128 * 
9 PAT TBTS R2,0 SET RESULTS BIT ON FOR DATA ERROR 42 @CALL ABSOLUTE. HEX VALUE(00000201) 
093408 50Fc 4130 dome | HAAN RETURN 70, HDT gu2 9/8 308 378 4392 1032 1076 131 1370 
OO3AOA 4a41 4131 DIRER TBTS (R21) ERROR ON WRITE ay anaes 1202 1222 1955... W9ee. Ada ABE. 
poet hens 4433 TBTS (R2,2) ERROR ON READ 102 @DCADD1 ADDRESS. HEX LOCATION(000019B8) IN CSECT(I7A20 ) LENGTH(1) 
003A10 6E03 3142 4134 sts BAL «$105, Ro Se ee 103 @DCADD2 ADDRESS. HEX LOCATION(000019BA) IN CSECT(I7A20 LENGTH (1 
0O03A14 3286 4135 DC ee $) ABORT TEST IF ERROR 3400 : ( ) ( ) (1) 
003416 8028 2FB1 1828 4136 MVB CST134+1,TUWORK+14 MOVE WRAP BYTE IN TURESULS BUFFER 56 ae PO Cat nie. HEe RTE COONa OOS 
OO3A1C 50E5 4137 J CKPAT NO. > RETURN TO NDE 771-956 1003, 10821129 .21176 1235 1282 «1329 
OO3A1E 4ayy 4138 NOST1 TBTS (2,4) Coe en OnE as «1 oN CRD 1396 1443 1490 1537 1584 1631 1646 1693 1784 
ans. Rhus 1180 r uae CYCLE STEAL STATUS EXCEPTION INTR 1852 
003824 SORE eh en rane ST CTY RETURN TO MDI 41 @GOTO = ABSOLUTE. HEX VALUE (00000200) 
4142 * 46 .@NVLD ABSOLUTE. HEX VALUE (00000600 
000000 4144 END NBe 800 | 814 B40 BT2. 904 936 995 1030 
1074 1109 1168 1203 1250 1297 1344 1376 1435 
1470 1529 1564 1623 1685 1720 1764 1811 1879 
40 @STOP ABSOLUTE. HEX VALUE (00000102) 
45 DTUXX ABSOLUTE, HEX VALUE (90000500) 
759774 788 802 816 828 848 860 880 
892 912 928 944 959 (971 983 1006 1018 
1038 1050 1062 1085 1097 1117 #1132 1144 «1156 
1179 #1191 1211 1223 1238 1258 1270 1285 1305 
1317 1332 1352 1364 1384 1399 1411 1423 1446 
1458 1478 1493 1505 1517 1540 1552 1572 1587 
1599 1611 1634 1649 1661 1673 1696 1708 1728 
: 1740 1752 1772 1787 1799 1825 1840 1855 1867 
3310 BEGIN gABDRESS- HEX LOCATION (000032F2) IN CSECT(I7A20 ) LENGTH (2) 
3335 BITO080 ABSOLUTE. HEX VALUE (00000080) 
3330 BUFPT ABDRESS. HEX LOCATION (0000344E) IN CSECT(I7A20 ) LENGTH (2) 
1980 CE ABSOLUTE. HEX VALUE (0000002A) 
2992 3106 3176 
3842 CHKID gAQDRESS. HEX LOCATION (00003806) IN CSECT(I7A20  ) LENGTH(6) 
3976 CHKTM ADDRESS. HEX LOCATION (000038F6) IN CSECT(I7A20 ) LENGTH (4) 
3645 CHK1 ADRRESS. HEX LOCATION (00003610) IN CSECT(I7A20 ) LENGTH(6) 
3653 CHK2 aRPDRESS. HEX LOCATION(0000362C) IN CSECT(I7A20 ) LENGTH (6) 
3669 CHK3 ARDRESS. HEX LOCATION (0000366E) IN CSECT(I7A20 ) LENGTH (6) 
3678 CHK4 ADDRESS. HEX LOCATION (0000368E) IN CSECT(I7A20 ) LENGTH(6) 
ABS 
3242 (3493 
4118 CKPAT ADDRESS. HEX LOCATION (000039E8) IN CSECT(I7A20 ) LENGTH (4) 
2161 CLDCB jADDRESS, HEX LOCATION (00002FDA) IN CSECT(I7A20 ) LENGTH (2) 
1978 cs ABSOLUTE. HEX VALUE (00000028) 
2993 2996 3104 3145 3174 
1979 CSA giBSOLUTE. HEX VALUE (00000029) 
2009 CSBUF ADDRESS. HEX LOCATION (00002F98) IN CSECT(I7A20 ) LENGTH (1) 
2188 CSDCB oARDRESS. HEX LOCATION (0000300A) IN CSECT(I7A20 ) LENGTH (2) 
2014 CSTL5 ADDRESS. HEX LOCATION (OQQO2FAQ) IN CSECT(7A20 |) LENGTH (2) 
3590 3690 3742 3824 3834 3964 3984 4032 4o42 
2015 CSTLE ADDRESS. HEX LOCATION (00002FA2) IN CSECT(I7A20  ) LENGTH (2) 
3421 3688 3741 3821 3822 3 
2021 CST 12 ADDRESS. HEX LOCATION (O0002FAE) IN CSECT(I7A20  ) LENGTH (2) 
3417 3418 3691 3749 3760 58 
2022 csT13 ADDRESS. HEX LOCATION(00002FB0) IN CSECT(I7A20  ) LENGTH (2) 
3419 3420 4120 4136 
2235 CTRO3 gAPPRESS. ,HEX LOCATION (00003062) IN CSECT(I7A20 ) LENGTH (2) 
4047 CTSRR ADDRESS. HEX LOCATION (0000397A) IN CSECT(I7A20 ) LENGTH (6) 
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DECLARED NAME DECLARED NAME 


1999 DCBUF ADDRESS. HEX LOCATION (00002F88) IN CSECT(I7A20 ) LENGTH(1) 3290 MV BUF gABDRESS, HEX LOCATION (000032B6) IN CSECT(I7A20 ) LENGTH(2) 
3331 DC2PT ADDRESS. HEX LOCATION (00003450) IN CSECT(I7A20  ) LENGTH (2) 1982 NG giBSOLUTE. HEX VALUE (0000002C) 
105 DEVADD ADDRESS. HEX LOCATION(000019D0) IN CSECT(I7A20 ) LENGTH(1) 1977 NI ABSOLUTE. HEX VALUE (00000027) 
29 3197 3206 3306 3452 3497 3570 3017 
1994 DEV1 ADDRESS. HEX LOCATION (00002F80) IN CSECT(I7A20 ) LENGTH(2) 3458 NULL gADBRESS. HEX LOCATION (0000350C) IN CSECT(I7A20 ) LENGTH(2) 
1997 DEV4 ADDRESS. HEX LOCATION (00002F86) IN CSECT(I7A20 ) LENGTH(2) 3828 NXTID ADDRESS. HEX LOCATION (000037D0) IN CSECT(I7A20 ) LENGTH (2) 
2150 DGDCB >ADDRESS. HEX LOCATION(00002FCA) IN CSECT(I7A20 ) LENGTH(2) 759 N00001 ADDRESS. HEX LOCATION (00002748) IN CSECT(I7A20 ) LENGTH(2) 
4131 DIRER ADDRESS. HEX LOCATION(00003A0A) IN CSECT(I7A20 ) LENGTH(2) 771 N00002 ADDRESS. HEX LOCATION (0000275A) IN CSECT(I7A20  ) LENGTH(2) 
3510 DLYD ADDRESS, HEX LOCATION (00003556) IN CSECT(I7A20 ) LENGTH(2) 774 N00003 ADDRESS, HEX LOCATION (0000275E) IN CSECT(I7A20 ) LENGTH (2) 
4099 DPAT2 ADDRESS. HEX LOCATION (000039AA) IN CSECT(I7A20 ) LENGTH (4) 786 N00004 ADDRESS. HEX LOCATION (00002774) IN CSECT(I7A20 ) LENGTH(2) 
3417 DSNS1 ADDRESS. HEX LOCATION(OOO02FAE) IN CSECT(I7A20  ) LENGTH(2) 788 N00005 ADDRESS. HEX LOCATION (00002776) IN CSECT(I7A20 ) LENGTH(2) 
3418 DSNS2 ADDRESS. HEX LOCATION(QOQOO2FAF) IN CSECT(I7A20 ) LENGTH(1) 800  Nn00006 ADDRESS. HEX LOCATION (0000278C) IN CSECT(I7A20 ) LENGTH (2) 
67 DUMMY ABSOLUTE. HEX YALUE (00000000) 802 N00007 ADDRESS, HEX LOCATION (0000278E) IN CSECT(I7A20 ) LENGTH(2) 
3414 D100 ghDBRESS. HEX LOCATION (000034DF) IN CSECT(I7A20 ) LENGTH(2) 814 N00008 ADDRESS. HEX LOCATION (000027A2) IN CSECT(I7A20 ) LENGTH (2) 
4050 D20 ADDRESS. HEX LOCATION (00003982) IN CSECT(I7A20 ) LENGTH(2) 816 N00009 ADDRESS. HEX LOCATION (000027A%) IN CSECT(I7A20 ) LENGTH (2) 
3413 D55 ghDRRESS. HEX LOCATION(000034DC) IN CSECT(I7A20 ) LENGTH(2) 828 N00010 ADDRESS. HEX LOCATION(000027BE) IN CSECT(I7A20 ) LENGTH(2) 
1890 ENTPT ADDRESS. HEX LOCATION(OOO02EA4) IN CSECT(I7A20 ) LENGTH(1) 840 N00011 ADDRESS. HEX LOCATION (000027D0) IN CSECT(I7A20 ) LENGTH(2) 
47 EQ ABSOLUTE. HEX VALUE (00009000) 842 N00012 ADDRESS. HEX LOCATION(000027D2) IN CSECT(I7A20 ) LENGTH (2) 
777 ~791 +~=~©805 +=©831 =—863.°—S— 895 = 927) 947986 348 829 
1009 1021 1041 1065 1088 1100 1120 1135 1159 B48 N00013 ADDRESS. HEX LOCATION(000027DE) IN CSECT(I7A20 ) LENGTH(2) 
1182 1194 1214 1241 1261 1288 1308 1335 1367 351 817 
1387 1402 1426 1449 1461 1481 1496 1520 1543 860 NO0014 ADDRESS. HEX LOCATION (000027F4) IN CSECT(I7A20 ) LENGTH(2) 
1555 1575 1590 1€14 1637 1652 1676 1699 1711 354 
1755 1802 1843 1858 1870 872 N00015 ADDRESS. HEX LOCATION(00002806) IN CSECT(I7A20 ) LENGTH(2) 
1971 ER ABSOLUTE. HEX VALUE (00090021) 357 
2348 3010 3031 3174 3156 3181 3588 3746 3753 874 N000 16 ADDRESS. HEX LOCATION(00002808) IN CSECT(I7A20 ) LENGTH(2) 
3757 4104 4110 4115 360 861 
2051 EXIT ABSOLUTE. HEX VALUE (00000006) 880 N00017 ADDRESS; HEX LOCATION (00002814) IN CSECT(I7A20 ) LENGTH(2) 
3333 FAKETU ghDDRESS. HEX LOCATION (00003454) IN CSECT(I7A20 ) LENGTH(2) 892 N00018 ADDRESS. HEX LOCATION (0000282E) IN CSECT(I7A20 ) LENGTH (2) 
1929 F00009 ADDRESS. HEX LOCATION (O0002F4E) IN CSECT(I7A20 ) LENGTH (1) 904 NO0019 ADDRESS. HEX LOCATION (00002840) IN CSECT(I7A20 ) LENGTH(2) 
1921 F00032 ADDRESS. HEX LOCATION (00002F0A), IN CSECT(I7A20 _) LENGTH(1) 906 N00020 ADDRESS. HEX LOCATION (00002842) IN CSECT(I7A20 ) LENGTH(2) 
957. 1004 1083 1130 1177 1236 1283 1330 1397 372 893 
1444 18691 1538 1585 1632 1647 1694 1785 1853 912 N00021 ADDRESS. HEX LOCATION(0000284E) IN CSECT(I7A20 ) LENGTH (2) 
1917 FO0040 ADDRESS. HEX LOCATION (00002EE6) IN CSECT (I7A20 ) LENGTH (1) 375-881 
843 875 907 939 998 1033 1077 1112 1171 924 N00022 ADDRESS. HEX LOCATION(00002860) IN CSECT(I7A20 ) LENGTH(2) 
1206 1253 1300 1347 1379 1438 1473 1532 1567 378 
1626 1688 1723 1767 1814 1882 936 N00023 ADDRESS. HEX LOCATION (00002872) IN CSECT(I7A20 ) LENGTH(2) 
1909 FO00046 ADDRESS. HEX LOCATION(OOO02EAA) IN CSECT(I7A20 ) LENGTH(1) 381 
772 938 NO0024 ADDRESS. HEX LOCATION(00002874) IN CSECT(I7A20  ) LENGTH(2) 
1925 F00483 ADDRESS. HEX LOCATION (00002F34) IN CSECT(I7A20  ) LENGTH(1) 384 925 
1820 944 N00025 ADDRESS. HEX LOCATION(00002880) IN CSECT(I7A20 ) LENGTH(2) 
3339 HEBLK ADDRESS. HEX LOCATION (00003456) IN CSECT(I7A20 ) LENGTH(2) 387 913 
3279 956 N00026 ADDRESS. HEX LOCATION (00002892) IN CSECT(I7A20 ) LENGTH(2) 
2071 HTOE ABSOLUTE. HEX VALUE(0000001A) 390 
3280 959 N00027 ADDRESS. HEX LOCATION (00002896) IN CSECT(I7A20 ) LENGTH(2) 
3855 IDER ADDRESS. HEX LOCATION (00003830) IN CSECT(I7A20 ) LENGTH(2) 393. | 945 
3840 3843 971 N00028 ADDRESS. HEX LOCATION(000028A8) IN CSECT(I7A20 ) LENGTH(2) 
2047 IDLE ABSOLUTE. HEX VALUE (90000002) 396 
3025 3027 3510 3580 983 N00029 ADDRESS. HEX LOCATION(000028BC) IN CSECT(I7A20 ) LENGTH(2) 
1973 IN ABSOLUTE. HEX VALUE (90000023) 399 
2347 3011 3023 3144 3581 995 N00030 ADDRESS. HEX LOCATION (000028CE) IN CSECT(I7A20 ) LENGTH(2) 
3206 INTBL ADDRESS. HFX LOCATION(0000324A) IN CSECT(I7A20 ) LENGTH(2) 402 
3241 3492 997 N00031 ADDRESS. HEX LOCATION(000028D0) IN CSECT(I7A20 ) LENGTH(2) 
3101 INTER ADDRESS. HEX LOCATION(000031AE) IN CSECT(I7A20 ) LENGTH (2) 405 984 
3208 1003 N00032 ADDRESS. HEX LOCATION(000028DC) IN CSECT(I7A20 ) LENGTH(2) 
3110 INTES ADDRESS. HEX LOCATION (000031C6) IN CSECT(I7A20 ) LENGTH(2) 408 972 
3105 1006 N00033 ADDRESS. HEX LOCATION(000028E0) IN CSECT(I7A20 ) LENGTH(2) 
3114 INTET ADDRESS. HEX LOCATION(000031CE) IN CSECT(I7A20 ) LENGTH(2) 411 960 
3111 1018 N00034 ADDRESS. HEX LOCATION(000028F4) IN CSECT(I7A20  ) LENGTH(2) 
3853 INTFC ADDRESS. HEX LOCATION(0000382C) IN CSECT(I7A20 ) LENGTH(2) 414 
3825 3835 1030 N00035 ADDRESS. HEX LOCATION(00002906) IN CSECT(I7A20 ) LENGTH(2) 
3141 INTOK ADDRESS. HEX LOCATION (000031D2) IN CSECT(I7A20 ) LENGTH(2) 417 
3207 1032 N00036 ADDRESS. HEX LOCATION(00002908) IN CSECT(I7A20 ) LENGTH(2) 
63 INTRNL ABSOLUTE. HEX VALUE (00000000) 420 1019 
1823 1038 N00037 ADDRESS. HEX LOCATION (00002914) IN CSECT(I7A20 ) LENGTH(2) 
3163 INTRX ADDRESS. HEX LOCATION (00003202) IN CSECT(I7A20 ) LENGTH(2) 423 1007 
3158 3161 1050 N00038 ADDRESS. HEX LOCATION(0000292E) IN CSECT(I7A20 ) LENGTH(2) 
3144 INTR1 ADDRESS. HEX LOCATION (000031DA) IN CSECT(I7A20 ) LENGTH (2) 426 
3109 3113 311 1062 N00039 ADDRESS. HEX LOCATiION(00002944) IN CSECT(I7A20 ) LENGTH(2) 
3149 INTR2 ADDRESS. HEX LOCATION (000031E8) IN CSECT(I7A20  ) LENGTH(1) 429 
3146 1074 NOOO040 ADDRESS. HEX LOCATION (00002956) IN CSECT(I7A20 ) LENGTH(2) 
3157 INTR3 ADDRESS. HEX LOCATION (000031F6) IN CSECT(I7A20 ) LENGTH(2) 432 
3154 1076 NO0041 ADDRESS. HEX LOCATION (00002958) IN CSECT(I7A20 ) LENGTH(2) 
3197 IOBLK ADDRESS. HEX LOCATION(0000323E) IN CSECT(I7A20 ) LENGTH(2) 435 1063 
2350 3012 1082 N00042 ADDRESS. HEX LOCATION(00002964) IN CSECT(I7A20  ) LENGTH(2) 
3199 IODCB ADDRESS. HEX LOCATION (00003242) IN CSECT(I7A20 __) LENGTH(2) 438 1051 
2310 2313 2316 2328 2331 2334 2361 2994 3000 1085 N00043 ADDRESS. HEX LOCATION (00002968) IN CSECT(I7A20 ) LENGTH(2) 
3200 IOMOD ADDRESS. HEX LOCATION (00003244) IN CSECT (I7A20 ) LENGTH (2) . 1097 NOOO4Y ADDRESS. HEX LOCATION(0000297C) IN CSECT(I7A20 ) LENGTH(2) 
2351 2352 2986 2989 2995 3743 3750 (3754 4027 4 4 
4107 4112 1109 N00045 ADDRESS. HEX LOCATION(0000298E) IN CSECT(I7A20 ) LENGTH(2) 
3595 IO3ER ADDRESS. HEX LOCATION (000035E0) IN CSECT(I7A20 ) LENGTH(2) 4O7 
3587 3589 1111 NOOO4E ADDRESS. HEX LOCATION (00002990) IN CSECT(I7A20 ) LENGTH(2) 
37 I7A20 CSECT. START(00002500) LENGTH(5414) ESDID(1) 450 1098 
37 1117 NOOO47 ADDRESS. HEX LOCATION(0000299C) IN CSECT(I7A20 ) LENGTH(2) 
3316 LINE1 ADDRESS. HEX LOCATION (0000332A) IN CSECT(I7A20 ) LENGTH(40) 453 1086 
3287 1129 NOO048 ADDRESS. HEX LOCATION(000029B6) IN CSECT(I7A20 ) LENGTH(2) 
2237 LPCNT ADDRESS. HEX LOCATION (00003066) IN CSECT(I7A20 ) LENGTH(2) 456 
4098 4099 4118 471 1132 N00049 ADDRESS. HEX LOCATION(000029BA) IN CSECT(I7A20 ) LENGTH (2) 
1993 LSTIO ADDRESS. HEX LOCATION (O0002F7E) IN CSECT(I7A20 ) LENGTH(2) 459 1118 
2337 2998 3249 1144 N00050 ADDRESS. HEX LOCATION(000029CC) IN CSECT(I7A20 ) LENGTH(2) 
1970 MI ABSOLUTE. HEX VALUE(00000020) 2 
3159 1156 N00051 ADDRESS. HEX LOCATION(000029E2) IN CSECT(I7A20  ) LENGTH(2) 


I7A20 --- 


DECLARED 


1168 
1170 
1176 
1179 
1191 
1203 
1205 
1211 
1223 
1235 
1238 
1250 
1252 
1258 
1270 
1282 
1285 
1297 
1299 
1305 
1317 
1329 
1332 
1344 
1346 
1352 
1364 
1376 
1378 
1384 
1396 
1399 
1411 
1423 
1435 
1437 
1443 
1446 
1458 
1470 
1472 
1478 
1490 
1493 
1505 
1517 
1529 
1531 
1537 
1540 
1552 
1564 
1566 
1572 
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NO 0094 
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N00 102 
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CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
ATTRIBUTES AND REFERENCES 

ADDRESS. HEX LOCATION (00002CB6) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002CC8) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00002CDC) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION(O0002CEE) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS, HEX LOCATION (00002CF0) IN CSECT(I7A20  ) LENGTH (2) 
ADDRESS. HEX LOCATION (O0002CFC) IN CSECT(I7A20 )} LENGTH(2) 
ADDRESS. HEX LOCATION (00002D00) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D14) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D18) IN CSECT(I7A20  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D2A) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D40) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D52) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D54) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D60) IN CSECT(I7A20  ) LENGTH(2) 
ADDRESS, HEX LOCATION (00002D64) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D78) IN CSECT(I7A20  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D8A) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002D8C) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS, _HEX LOCATION (00002D98) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002DAA) IN CSECT(I7A20  ) LENGTH(2) 
ADDRESS. HEX LOCATION(00002DBC) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002DCE) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00002DD0) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS; HEX LOCATION (00002DDC) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002DF2) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002DF6) IN CSECT(I7A20  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002E08) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00002E1A) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION(O0002E1C) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002628) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002E34) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION(00002E48) IN CSECT(I7A20 ) LENGTH (2) 
ADDRESS. HEX LOCATION (OOOO2E4C) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002E66) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS, HEX LOCATION (00002E6A) IN CSECT(I7A20  ) LENGTH (2) 
ADDRESS. HEX LOCATION (OO0002E7E) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00002E90) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS- HEX LOCATION (00002E92) IN CSECT(I7A20  ) LENGTH (2) 
ADDRESS. HEX LOCATION (OO0O02E9E) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (000038EE) IN CSECT(I7A20 ) LENGTH(6) 
ABSOLUTE. HEX VALUE (90000202) 
762 819 851 883 915 1053 1273 1320 1355 

414 1508 1664 1731 1743 1775 1790 

ABSOLUTE. HEX VALUE (00000200) 

962 974 1147 1226 1602 1828 

ADDRESS. HEX LOCATION (00002F72) IN CSECT (I7A20 ) LENGTH (2) 
103. 3143 3448 3490 3562 3634 3734 (3805 3904 
944 4018 4091 
ADDRESS, HEX LOCATION (00002F76) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS. HEX LOCATION (00001965) IN CSECT (I7A20 ) LENGTH (1) 
769 784 798 812 °&826 38 858 870 890 

902 922 934 954 969 981 993 1016 1028 
048 1060 1072 1095 1107 1127 1142 41154 1166 

189 1201 1221 1233 1248 1268 1280 1295 1315 

327 1342 1362 1374 1394 1409 1421 1433 1456 

468 1488 1503 1515 1527 1550 1562 1582 1597 
609 1621 1644 1659 1671 1683 1706 1718 1738 

750 1762 1782 17987 1809 1835 1850 1865 1877 

ADDRESS. HEX LOCATION (00003A06) IN CSECT(I7A20 ) LENGTH(2) 
ADDRESS, HEX LOCATION (00003068) IN CSECT(I7A20 ) LENGTH (2) 
ADDRESS. HEX LOCATION(00001800) IN CSECT(I7A20 ) LENGTH (1) 
71 72 73 74 75 76 77 78 9 

80 81 82 83 By 85 6 87 88 

89 90 97 92 93 94 95 96 97 

98 99 100 101 102 103 108 +#+#.(1105 106 

107. 108 109 110 #111 + &2°1112 «3298 

ABSOLUTE. HEX VALUE (0000F1FO) 
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CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS~-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES ; 
2057 PREP A earl HEX VALUE (0000000C) 74 TUSTATUS S578 HEX LOCATION (00001818) IN CSECT(I7A20 ) LENGTH (1) 
2210 RDDCB ADDRESS. HEX Bo ue aee coe IN CSECT (1I7A20 ) LENGTH (2) 75 TUWORK ADDRESS. HEX LOCATION (0000181A) IN CSECT (I7A20 ) LENGTH (1) 
2325 2326 2328 2361 2362 2363 3678 #3679 680 3281 3282 3283 3285 3341 3738 3741 3742 3749 
3658 RDDID ADDRESS. HEX LOCATION (00003646) IN CSECT(1I7A20 ) LENGTH (4) 3760 3761 3762 3763 $3764 3765 3908 3909 4136 
3665 3523 T7AO1I ADDRESS. HEX LOCATION (00003570) IN CSECT(I7A20 ) LENGTH (2) 
3416 RGBUF ADDRESS. HEX LOCATION (OOOO34E4) IN CSECT(I7A20 ) LENGTH (2) 3496 3497 3498 3499 3500 3502 3515 
3680 3516 T7A01X ADDRESS. HEX LOCATION (00003566) IN CSECT(I7A20 ) LENGTH (6) 
2064 RICB ABSOLUTE. HEX VALUE (00000013) 3514 
3307 2036 T7A02 ADDRESS. HEX LOCATION (00002FC2) IN CSECT(I7A20 ) LENGTH (6) 
2233 RSBA ADDRESS. HEX LOCATION (00003054) IN CSECT(I7A20 ) LENGTH (2) 818 850 882 973 1052 1134 1146 1225 1272 
2154 2170 2181 2203 2214 1319 1401 1413 1495 1507 1589 1601 1651 1663 
2166 RSDCB ADDRESS. HEX ote eye nae aria IN CSECT(I7A20 } LENGTH (2) 1742 1774 421789 
2316 2321 3362 3363 3364 3369 3371 3655 3656 3560 T7A03 ADDRESS. HEX LOCATION (00003574) IN CSECT(I7A20 ) LENGTH (4) 
3657 3662 3663 %3811 3812 3826 3827 3838 3839 776 790 
0 RO REGISTER. HEX PanUe yi ooeeo) 3580 T7A03K ADDRESS. HEX LOCATION (000035BA) IN CSECT(I7A20 ) LENGTH (2) 
2351 2353 2354 3364 3394 3394 3397 3404 3405 3583 
3406 3409 3410 3450 3500 3506 3507 3512 3513 3600 T7A03L ADDRESS. HEX eee noe gega ae IN CSECT(I7A20 ) LENGTH (2) 
3573 3585 3647 3673 3689 3767 3809 3813 3827 3569 3570 3571 3572 3573 3575 
Goce aN eet 3967 3976 3977 4025 4026 4035 3584 T7A03M aeouree: HEX LOCATION (000035C2) IN CSECT(I7A20 ) LENGTH (6) 
0 R1 REGISTER. HEX Sebo ose a 3632 T7A06 ADDRESS. HEX LOCATION (000035E8) IN CSECT(I7A20 ) LENGTH (4) 
3287 3290 3293 3296 3393 3495 3496 3498 3499 804 1008 1040 1087 1119 1181 1213 1260 1307 
3568 3569 3571 3572 3978 4036 4038 4099 4100 1386 1448 1480 1542 1574 1636 1698 1842 1857 
4118 4119 3732 T7A08 ADDRESS. HEX Beane eee IN CSECT (I7A20 i LENGTH (4) 
0 R2 REGISTER. HEX ee te ora 830 862 894 926 961 85 1020 1064 1099 
3292 3293 3399 3399 3402 3403 3407 3451 3454 1158 1193 1240 1287 1334 1366 1425 1460 1519 
3566 3595 3810 3851 3853 3855 3980 3981 4040 1554 1613 1675 1710 1754 #~%1801 1827 £1869 
4041 4097 4129 4131 #4133 4138 4140 3803 T7A09 ADDRESS. HEX LOCATION(0000376A) IN CSECT(1I7A20 ) LENGTH (4) 
0 R3 REGISTER. HEX FE one 1730 
2263 2265 2317 2320 2324 2327 2338 2341 2344 3942 T7A11 ADDRESS. HEX LOCATION(0000386E) IN CSECT(I7A20 ) LENGTH (4) 
2346 2364 2365 2986 2999 3002 3003 3006 3008 1354 
3065 3066 3067 3101 3102 3108 3112 3141 3142 4016 T7A12 ADDRESS. HEX LOCATION (00003920) IN CSECT(I7A20 ) LENGTH (4) 
3147 3160 3192 3237 3239 3240 3248 =3285 3286 914 
3290 3302 3398 4100 4101 4106 4119 4120 4089 T7A19 ADDRESS. HEX LOCATION (00003984) IN CSECT(I7A20 ) LENGTH (4) 
0 RY REGISTER. HEX Se Se gen” 946 
2347 2348 2349 2992 2993 2996 3010 3011 3013 3446 T7A50 ADDRESS. HEX LOCATION (OO0034E8) IN CSECT(I7A20 ) LENGTH (4) 
3014 3017 3023 3031 3103 3104 3106 3110 3114 761 
3143 3144 3145 3155 3156 3157 3159 3162 3172 3456 T7A50X ADDRESS. HEX LOCATION (00003508) IN CSECT(I7A20 ) LENGTH (4) 
3174 3176 3179 3181 3448 3490 3562 3581 3588 3453 
3634 3638 3734 3746 3753 3757 3805 3816 3828 3769 T7A89 ADDRESS. HEX LOCATION (00003766) IN CSECT(I7A20 ) LENGTH (4) 
3904 3944 4018 4091 4104 4110 4115 3766 
0 R5 REGISTER. HEX Peg oaoe 3980 U7A11 ADDRESS. HEX LOCATION (00003904) IN CSECT(1I7A20 ) LENGTH (4) 
2264 2265 2318 2320 2325 2327 2339 2341 2342 961 
2344 2363 2365 3000 3002 3004 3006 3022 3029 2199 VRDCB ADDRESS. HEX LOCATION(OO00301A) IN CSECT(I7A20 ) LENGTH (2) 
3151 3152 3153 3184 3185 3187 3189 3238 3239 2331 3671 3672 673 
3284 3297 3395 3400 3503 3504 3505 3509 3511 3666 VRID ADDRESS. HEX LOCATION (00003666) IN CSECT(I7A20 ) LENGTH (6) 
3576 3577 3578 3579 3583 36 
0 R6 REGISTER. HEX ee ede” 3365 VSEC ADDRESS. HEX LOCATION (00003470) IN CSECT(I7A20 ) LENGTH (4) 
2266 2267 2337 2998 3018 3032 3068 3173 3178 3372 
3180 3188 3191 3193 3243 3249 3251 3289 3294 3361 VSEEK ADDRESS. HEX LOCATION(0000345C) IN CSECT(I7A20 ) LENGTH (4) 
3295 3361 3365 3411 3563 3586 3635 3641 3649 3959 
3658 3674 3681 3684 3735 3739 3744 %$%}3747 3751 2061 WRITO ABSOLUTE. HEX VALUE (00000010) 
3755 3758 3806 3817 3819 3829 3831 3905 3945 2356 
3955 3957 3959 3962 3966 4019 4028 4030 4034 2062 WRIT1 ABSOLUTE. HEX VALUE (00000011) 
4092 4102 4108 4113 4134 2358 
0 R7 REGISTER. HEX eee 2227 HRSID ADDRESS. HEX LOCATION (00003048) IN CSECT(I7A20 ) LENGTH (2) 
2037 2262 2319 2326 2340 2343 2350 2362 3001 2264 
3005 3012 3107 3148 3236 3241 3246 3279 3288 1974 XE ABSOLUTE. HEX a te ae 
3291 3303 3306 3446 3488 3492 3560 3632 3732 3110 3172 3638 3816 3828 
3803 3902 3942 4016 4089 1972 XI ABSOLUTE. HEX VALUE (00000022) 
1998 SCTID ADDRESS. HEX LOCATION (00002F80) IN CSECT(17A20 ) LENGTH (2) 2349 3014 3157 
2173 2263 2318 2321 3367 3660 3666 3812 6 2986 XIO ADDRESS. HEX BO ea en ogg os IN CSECT (I7A20 ) LENGTH (4) 
3842 3856 3960 2311 2314 322.2329 (2332... 2335 
3373 SEEKK Pe eae ra tae eta ee IN CSECT (I7A20 ) LENGTH (4) 3172 XIOCK Sogou HEX LOCATION (00003204) IN CSECT(I7A20 ) LENGTH (2) 
3817 SEKK1 38h sRs0U LOCATION (OO0037A4) IN CSECT(I7A20 ) LENGTH (4) 3179 XIOCO FE a HEX LOCATION (00003216) IN CSECT(I7A20 ) LENGTH (2) 
2177 SKDCB ADDRESS. HEX LOCATION (OOOO2FFA) IN CSE (I17A20 ) LENGTH (2) 3189 XIOCQ ADDRESS. HEX LOCATION (0000322C) IN CSECT(I7A20 ) LENGTH (4) 
2310 3362 3647 3648 3813 3814 3826 3842 3847 3186 
3849 3857 3951 3952 3960 3972 3974 2994 XxIocS ADDRESS. HEX BG nee daa ay IN CSECT (I7A20 } LENGTH (6) 
3851 SKER Oe ee HEX LOCATION (00003828) IN CSECT(I7A20 ) LENGTH (2) ety ee 3684 3739 3747 3758 3819 3831 3962 
3684 SNSTS SGNa Reed SGea cee cea IN CSECT (1I7A20 ) LENGTH (4) 3181 XIOCV Saye HEX LOCATION (OO00321A) IN CSECT(I7A20 ) LENGTH (2) 
3415 SPEED ADDRESS. HEX Bo ee aga ok IN CSECT (1I7A20 ) LENGTH (2) 3192 XIOCX ADDRESS. HEX LOCATION (00003238) IN CSECT(1I7A20 ) LENGTH (4) 
3395 3396 3397 3400 3401 3402 3403 3404 3410 3182 
2055 START gnReOLure. HEX VALUE (00000003) 2989 XIODG > RDDRESS. HEX LOCATION(00003136) IN CSECT(I7A20 ) LENGTH (6) 
4134 STS pARBRESS. HEX LOCATION (00003A10) IN CSECT (I7A20 ) LENGTH (4) 3065 XIOER gi BDRESS. HEX LOCATION (000031A2) IN CSECT(I7A20 ) LENGTH (2) 
3983 STSER sees HEX LOCATION (0000390C) IN CSECT(I7A20 ) LENGTH (6) 2998 XI0O1 SGny 308g) LOCATION (00003152) IN CSECT(I7A20 ) LENGTH (4) 
104 SUPSTAT ssor HEX LOCATION (000019C4) IN CSECT (I7A20 ) LENGTH (1) 3011 XIO2 Sggg 00 HEX LOCATION (00003178) IN CSECT(1I7A20 ) LENGTH (2) 
3393 TMDIG aoee UGsa LOCATION (00003494) IN CSECT(I7A20 ) LENGTH (4) 3023 XI0O8 oa ep REs Se HEX Sacer ee eeel IN CSECT (I7A20 ) LENGTH (2) 
4O40 TMERR fe aba HEX LOCATION (0O000396A) IN CSECT(I7A20 ) LENGTH (4) 3411 XTMDG Shoes HEX LOCATION (OOOO34DA) IN CSECT(I7A20 ) LENGTH (2) 
3863 TRKNO ADDRESS. HEX hoe onae  ges oe IN CSECT(1I7A20 ) LENGTH (2) 62 XTRNL ABSOLUTE. HEX agg tte yy 
3815 3844 3847 3849 3953 3970 3972 3974 846 878 910 942 1001 1036 1080 1115 1174 
3849 TRKOD ADDRESS. HEX LOCATION (00003820) IN CSECT(I7A20 ) LENGTH (6) 1209 1256 1303 1350 1382 1441 1476 1535 1570 
3846 1629 1691 1726 1770 1817 1885 
3989 TSEEK Aone seed oan IN CSECT (17A20 ) LENGTH (2) 3592 X7A03 deugtet HEX LOCATION (000035DC) IN CSECT(I7A20 ) LENGTH (4) 
3955 TSKK1 gABBRESS. HEX LOCATION (000038A6) IN CSECT(I7A20 ) LENGTH (4) 3690 X7A06 3p RDRESS. HEX LOCATION(000036C4) IN CSECT(I7A20 ) LENGTH (6) 
92 TUMSGWTR Be aa HEX LOCATION (OOO0O18BA) IN CSECT(I7A20 ) LENGTH (1) 3858 X7A09 ao Speen Ss LOCATION (0000383E) IN CSECT(I7A20 ) LENGTH (6) 
76 TUPARM1 ADDRESS. HEX LOCATION (0000189A) IN CSECT (I7A20 ) LENGTH (1) 3984 X7A11 ADDRESS. HEX LOCATION (00003912) IN CSECT(I7A20 ) LENGTH (6) 
3495 3568 3639 3645 3653 3669 3686 3738 3979 3982 
77 TUPARM2 3ene Senne LOCATION (0000189C) IN CSECT(I7A20 ) LENGTH (1) 4O42 X7A12 hogs) RGue LOCATION (00003970) IN CSECT (I7A20 ) LENGTH (6) 
98 TURESUL ADDRESS. HEX LOCATTON (O9RO1SCe) IN CSECT (I7A20 ) LENGTH (1) 4126 X7A16 ADDRESS. HEX LOCATION (O0003A02) IN CSECT(I7A20 ) LENGTH (4) 
3450 3451 3515 3516 3566 3584 3585 3590 3666 4130 4139 4141 
3683 3688 3689 3690 3691 3761 3762 3763 3764 2220 ZEROO ADDRESS. HEX LOCATION (0000303A) IN CSECT(I7A20 ) LENGTH (2) 
3767 3809 3810 3821 3833 3856 3857 3858 3908 3409 
3909 3949 3950 3980 3983 3984 4025 4026 4040 
4042 4047 4095 4096 4097 4106 4124 
2027 TURTN ADDRESS. HEX yO eee ae ao ae IN CSECT(I7A20 } LENGTH (2) RO OR OR ook ak clolok tok aco dio tokio keke LAST DAG ER 3 ORK; IO IO IO OK OK tok tokio tek dojak ik tik 
ao te res 3488 3560 3632 3732 3803 3902 2 


